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1 .  INTRODUCTION 


The  development  of  the  measurement  technique  reported 
here  was  required  for  the  determination  of  the  periodic  flow 
field  behind  the  rotor  of  a  small,  single-stage  axial  com¬ 
pressor.  With  the  rotational  speed  of  the  rotor  of  30,000 
RPM  at  design  conditions,  the  18  blades  of  the  rotor  result 
in  a  blade-passage  frequency  of  9  Khz.  Thus  a  high  response 
measurement  technique  was  essential.  As  reported  earlier 
in  Ref.  1,  the  means  for  determining  the  time-averaged  flow 
at  all  speeds  is  available,  and  such  measurements  have  been 
made  to  50%  speed. 

The  basic  idea  of  the  present  technique  was  established 
some  time  ago  (Refs.  2,  3,  4).  This  report  gives  a  brief 
review  of  the  measurement  concept,  results  obtained  with  a 
first  set  of  probes,  and  describes  in  detail  the  calibration 
and  application  of  a  new  set  of  probes.  The  new  probes  have 
the  advantage  of  being  only  two-thirds  the  size  of  the  old 
ones. 
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2.  MEASUREMENT  CONCEPT 


As  described  in  detail  in  Ref.  2,  a  dual-probe  digital 
sampling  technique  is  used  to  determine  the  flow  field  behind 
the  rotor  in  a  real  time  regime.  The  technique  incorporates 
two  high  response  Kulite  pressure  transducers  (Fig.  1) . 

Using  two  trigger  signals  from  the  compressor  shaft  (one  per 
revolution  and  one  per  blade) ,  digitization  of  signal  data 
can  be  controlled  from  the  probes  which  are  shown  in  Fig.  2. 
128  locations  can  be  selectively  triggered  for  any  one  blade 
passage,  thus  giving  good  resolution  for  the  specific  area  to 
be  covered.  The  control  device  for  the  computer  acquisition 
of  the  data  is  the  PACER.  Details  of  this  device,  which  was 
developed  in-house,  can  be  found  in  Refs.  2  and  3. 

Two  major  changes  to  the  hard-  and  software  of  the  PACER 
were  made  recently  which  are  reported  in  Ref.  4.  These 
changes  made  the  lock-on  to  blade  passing  frequency  totally 
automatic  and  reliable,  and  significantly  reduced  the  total 
time  for  acquisition  of  a  set  of  data.  During  the  period 
reported  here,  several  errors  were  found  in  the  work  pre¬ 
sented  in  Ref.  4;  Appendix  A  identifies  the  errors  and  their 
corrections . 

The  measurement  system  consists  of  two  pressure  probes, 
one  the  so-called  type  "A"  probe  which  is  essentially  a  total 
pressure  probe,  and  the  so-called  type  "B"  probe,  a  total 


pressure  probe  bent  up  35°  from  the  zero  pitch,  zero  yaw 
axis,  in  the  plane  of  zero  yaw.  The  PACER  allows  data  to  be 
acquired  from  each  of  the  two  probes  when  they  are  at  identi¬ 
cally  the  same  location  with  respect  to  the  rotor.  The 
probes  can  be  rotated  about  the  sensor  tip.  It  is  noted  that 
their  outputs  when  set  at  different  yaw  angles  could  as  well 
be  considered  as  the  output  of  different  probes  of  fixed 
geometry.  Earlier  studies  have  shown  the  dependency  of  a 
total  pressure  and  a  type  "B"  probe  on  yaw  angle.  Appendix 
B  gives  a  brief  discussion  and  outlines  the  use  which  can  be 
made  of  the  probe  characteristics. 

In  knowing  the  output  for  a  certain  yaw  angle  of  the  "A" 
probe  and  its  output  for  zero  yaw  angle,  as  well  as  the  out¬ 
put  of  the  "B"  probe  for  zero  yaw  angle  at  the  same  relative 
location,  three  different  pressures  are  known  for  what  might 
be  considered  to  be  a  single  equivalent  multi-sensor  probe. 
Reference  1  shows  how  such  pressures  can  be  reduced  to  values 
of  pitch,  yaw,  and  magnitude  of  the  velocity  vector.  The 
zero  yaw  angle  must  be  found  first  by  comparing  the  left-  and 
right-hand  sides  of  the  type  "A"  probe  output  as  a  function 
of  yaw. 

As  shown  in  Appendix  B,  the  type  "A"  probe  output  as  a 
function  of  yaw  angle  in  a  steady  uniform  flow  is  symmetrical 
about  a  position  where  the  probe  is  aligned  with  the  flow 
(referred  to  as  the  zero  yaw  position) .  if  in  an  unknown 
flow  the  yaw  angle  is  not  zero,  by  rotating  the  probe  and 
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finding  two  equal  pressure  readings  separated  by  a  certain 

angle  difference  and  selecting  the  raid-point  between  the  two 

corresponding  angles,  the  unknown  yaw  angle  can  be  determined. 

This  procedure  is  in  principle  the  same  as  the  pneumatic 

balancing  of  a  conventional  probe  (see  Ref.  1) .  However,  in 

an  actual  measurement  situation  the  pressure  output  is  not 

given  as  a  continuous  function  of  yaw  angle.  In  practice, 

the  data  acquisition  system  allows  digital  recording  of  data 

for  5  to  11  different  probe  yaw  angles.  Pigs.  3(a)  and  3(b) 

give  a  comparison  of  calibration  data  and  an  approximation 

using  a  fourth-order  polynomial  for  nine  data  points.  It 

is  evident  that  the  characteristics  of  the  probes  allow  a 

good  representation  of  their  output  to  be  obtained  for 

■  P^(a)  and  Pg  *  Pg(a)  *  yaw  angle)  if  only  a  few  values 

are  given.  From  these  analytic  functions  the  values  P. 

a  max 

(maximum  output  of  the  "A"  probe) ,  PB  max  (maximum  output  of 
the  "B"  probe)  and  a  value  Pg  can  be  determined  very  easily. 
PgA  is  found  from  P^  *  P^(a)  where  a  difference  in  yaw  of  126® 
separates  right  and  left  branches.  This  difference  is  chosen 
because  for  ±63®  of  yaw  the  type  "A"  probe  output  corresponds 
closely  to  static  pressure. 

Details  of  the  methods  used  to  derive  the  pitch  angle  and 
Mach  number  from  the  values  of  Pft  max/  PgA  and  PB  max  will  be 
discussed  later  in  detail. 

In  acquiring  data  from  the  compressor  at  a  steady  operating 
condition,  for  each  of  128  positions  in  the  blade-to-blade 


direction  across  a  selected  blade  passage,  pressure  data  are 
acquired  from  the  two  probes  set  at  5  to  11  probe  yaw  angles. 


Thus  at  each  blade- to-blade  position  P.  =  P. (a)  and  P_  =  P_(a) 

A  A  D  £5 

can  be  approximated  and  yaw  and  pitch  angles  and  Mach  numbers 
can  be  derived. 


3.  SECOND  GENERATION  PROBES 


In  order  to  improve  spatial  resolution  and  keep  effects 
such  as  the  probe  stem  interference  as  small  as  possible,  a 
new  set  of  Kulite  probes  was  built. 

3. 1  Probe  Design 

The  so-called  second-generation  probes  incorporate  Kulite 
semi- transducers  of  the  type  XC062.  The  transducers  measure 
0.062  inches  in  diameter  and  are  roughly  two-thirds  of  the 
size  of  the  first  generation  transducers.  Figure  4  shows 
the  probes  in  detail.  The  other  difference  compared  to  the 
first  probes  is  the  angle  of  the  tip  of  the  "B"  probe;  it  is 
at  35°  rather  than  55°  with  respect  to  the  zero  axis.  The 
reason  is  that  for  a  range  of  30°  to  50°  angle  of  attack  the 
relationship  between  pressure  output  and  angle  of  an  inclined 
pressure  probe  is  almost  linear,  while  for  higher  angles  it 
can  reach  a  minimum  and  become  double  valued.  An  angle  of 
35°  should  give  good  resolution  for  pitch  angles  in  the  range 
of  -5°  to  +15°. 

The  probe  tips  are  covered  with  machined  caps  which  have 
eight  holes  arranged  in  a  circle.  This  way  the  area  where 
the  transducers  are  located  is  shielded  while  there  is  still 
sufficient  area  for  the  air  to  get  into  and  out  of  the  minute 
volume  above  the  membrane.  A  frequency  response  in  excess  of 
100  Khz  is  retained  when  the  screen  is  used. 
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3.2.  Temperature  Sensitivity 

High  response  semiconductor  transducers  are  generally 
sensitive  to  temperature  changes.  That  is,  changes  in  the 
temperature  of  the  surrounding  medium  will  produce  changes 
in  the  indicated  pressure  although  there  has  been  no  change 
in  the  pressure  level.  In  the  transducer  manufacturer's 
specifications  it  is  quoted  that  a  change  of  100°F  might 
result  in  a  misreading  of  as  much  as  2%  of  the  full  range 
(25  PSI)  of  pressure.  On  request  the  transducers  can  be 
built  so  that  only  0.5%  misreading  for  the  same  conditions 
should  result.  Thus  a  100°F  temperature  change  should  pro¬ 
duce  no  more  than  0.125  PSI  or — equivalently — 3.46"  H2O 
misreading. 

The  relationship  between  transducer  voltage  output  and 
pressure  is  known  to  be  linear  (Refs.  2  and  3) .  Temperature 
changes  result  mainly  in  a  shift  of  the  intercept  rather 
than  the  slope  of  the  linear  relationship.  Since  the  tempera¬ 
ture  of  the  flow  in  the  compressor  is  expected  to  be  about 
50°F  higher  than  ambient,  an  error  of  1.7"  H2O  might  be  ex¬ 
pected  to  be  present  in  the  pressure  measurement  if  no  account 
was  taken  of  the  temperature  sensitivity,  assuming  the 
manufacturer's  specification  to  be  accurate. 

A  simple  test  was  made  to  check  the  temperature  sensi¬ 
tivity  of  the  "B"  probe.  The  probe  was  inserted  into  a  con¬ 
tainer  which  was  vented  to  atmospheric  pressure  but  which 
could  be  heated.  With  the  probe  connected  to  the  data 
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acquisition  system  in  the  usual  way,  the  container  tempera¬ 
ture  was  changed  and  the  voltage  output  of  the  probe  was  re¬ 
corded.  Figure  5  shows  the  effect  of  a  temperature  change 
of  about  60°F  over  a  period  of  four  minutes.  A  corresponding 
increase  of  some  2.4"  of  water  in  the  indicated  pressure  was 
observed,  corresponding  to  about  0.6%  of  the  full  transducer 
range  for  a  temperature  change  of  100°F.  This  was  consistent 
with  the  sensitivity  quoted  by  the  manufacturer. 

For  an  average  flow  Mach  number  in  the  compressor  of 
0.7,  with  a  corresponding  dynamic  head  of  154  inches  of  water, 
an  apparent  shift  in  the  transducer  intercept  of  1  to  2  inches 
of  water  is  not  large.  Also,  since  the  shift  would  be  similar 
at  different  probe  angles  (assuming  the  transducer  tempera¬ 
ture  would  not  change  significantly) ,  measurements  based  on 
differences  between  pressures  from  the  same  probe  set  at  dif¬ 
ferent  angles,  would  be  little  affected.  However,  as  readings 
from  the  "A"  and  "B"  probe  are  both  involved  in  calculating 
the  pitch  angle,  the  probes  must  give  absolute  pressure 
levels  accurately.  Therefore  there  is  need  for  on-line  cali¬ 
bration  as  data  is  acquired  at  any  new  test  condition. 


4.  PROBE  CALIBRATION 

4.1.  Calibration  Procedure 

The  range  of  Mach  number,  pitch  and  yaw  angle  over 
which  the  probes  were  calibrated,  had  to  cover  the  ranges 
which  were  expected  in  the  compressor  measurements.  The 
freejet  used  for  the  calibration,  which  is  described  in 
Ref.  1,  is  capable  of  Mach  numbers  up  to  0.9,  pitch  angles 
from  -45°  to  +45°  and  yaw  angles  from  0°  to  360°.  Figures 
6(a),  (b)  and  Cc)  show  details  of  the  probe  hook-up  and  in¬ 
strumentation  which  was  used.  Table  I  gives  the  input/output 
assignment  list  for  the  data  acquisition  system. 

The  "A"  and  "B"  probes  were  calibrated  separately. 

The  probe  outputs  were  each  recorded  for  a  total  of  9 
pitch  angles  (-15°  to  +25°  in  5°  increments)  and  6  Mach 
numbers  (0.2  tc  0.7  in  0.1  increments).  For  each  of  these 
54  configurations  the  probes  were  yawed  from  -80°  to  +80°, 
as  data  were  continuously  recorded.  This  procedure  served 
to  establish  the  complete  pressure  vs.  voltage  output 
characteristics  of  the  probes,  information  to  be  used 
later  in  the  analysis  and  interpretation  measurements  in 
the  compressor. 

The  transducers  were  scaled  using  bridge  adjustments 
to  give  engineering  units  on  the  DVM.  The  angle  potenti¬ 
ometer  was  set  to  read  linearly  in  increments  of  0.1°. 
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The  Kulite  transducers  were  scaled  to  read  in  increments 


of  .01  inches  of  water,  differential  pressure.  The  slope 
and  intercept  of  the  Kulite  transducer  were  checked  and 
adjusted  as  necessary  before  taking  data  at  each  new  test 
condition.  The  intercept  was  adjusted  to  zero  by  applying 
the  jet  reference  stagnation  pressure  to  the  reference 
side  of  the  probe  transducer  with  the  probe  tip  aligned 
with  the  flow  and  balancing  the  transducer  bridge.  The 
slope  was  set  by  adjusting  the  output  of  the  transducer 
to  be  equal  to  the  jet  stagnation  pressure  with  atmos¬ 
pheric  pressure  as  reference. 

For  each  configuration  of  probe,  Mach  number,  and 
pitch  angle,  the  procedure  was  as  follows: 

(i)  Reference  measurements  for  the  jet  (stagna¬ 
tion  pressure  and  temperature,  and  ambient 
pressure)  were  recorded. 

(ii)  The  probe  was  swept  steadily  from  -80°  to 
+80°  yaw  angle  as  150  data  values  of  both 
probe  voltage  output  and  yaw  angle  potenti¬ 
ometer  reading  were  acquired  by  the  computer 
(Fig.  6) .  The  jet  reference  measurements 
were  recorded  again. 

(iii)  The  procedure  in  (ii)  was  repeated  but  with 
the  probe  yaw  angle  swept  back  from  +80°  to 
-80°. 

The  three  sets  of  reference  measurements  were  com¬ 
pared  to  verify  the  steadiness  of  the  test  conditions. 

When  all  data  were  taken,  a  printout  was  produced  on  the 
line  printer  and  a  plot  of  pressure  versus  yaw  angle 
was  generated  on  the  X-Y  plotter. 
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For  each  probe,  the  procedure  in  (i)-(iii)  was 
repeated  for  each  pitch  angle  with  the  jet  Mach  number 
fixed.  The  jet  Mach  number  was  then  adjusted  to  the  next 
value  and  the  complete  procedure  repeated  again. 

4.2.  Data  Acquisition  and  Storage 

For  each  of  the  54  configurations  a  total  of  640 
numbers  were  stored  in  one  data  file  as  a  2  by  320  array. 
The  computer  program  used  for  the  data  acquisition  was 
&XALIB  (on  cartridge  26,  FORTRAN  IV).  The  program  is 
listed  in  Appendix  C  together  with  program  &YAW  (on  car¬ 
tridge  26,  FORTRAN  IV).  Both  programs  (&KALIB  and  &YAW) 
are  acquisiton  programs  for  the  calibration  of  type  "A" 
and  "B"  probes.  The  difference  is  that  program  &YAW  re¬ 
cords — in  a  more  conventional  way — data  from  one  fixed 
yaw  position  as  the  average  of  ten  readings  for  up  to  31 
positions,  while  program  &KALIB  gathers  data  for  continu¬ 
ously  varying  yaw  position. 

It  was  found  that  the  average  of  multiple  samples 
taken  at  a  fixed  yaw  position  did  not  give  more  accurate 
results  than  a  single  reading.  Figure  7  shows  a  com¬ 
parison  between  the  output  obtained  with  the  two  different 
data  acquisition  methods.  The  good  agreement  is  an  indi¬ 
cation  of  the  steadiness  of  the  flow  in  the  free  jet. 
Figure  8  shows  the  output  of  a  total  pressure  Kulite 
probe  held  fixed  in  the  jet  over  a  period  of  4  minutes, 
during  which  1000  single  readings  were  recorded.  The 
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largest  disturbances  shown  in  Pig.  8  are  probably  the 
result  of  distinct  changes  in  the  ambient  pressure  re¬ 
sulting  from  doors  being  opened  or  closed  in  the  build¬ 
ing,  rather  than  fluctuations  in  the  jet  itself. 

The  data  acquisition  program  &KALIB  is  fairly 
simple  and  contains  explanations  in  the  program  listing. 
Details  of  the  data  arrangement  in  the  array  are  given  in 
the  program  listing  (Program  &KALIB,  statement  numbers 
46  through  77) . 

4.3.  Type  "A"  Probe  Results 

Figure  9  gives  an  example  of  the  type  "A”  probe 
data  output  at  fixed  Mach  number  for  each  of  nine  pitch 
angles.  Shown  is  the  probe  voltage  output  versus  yaw 
angle.  Such  plots  provided  a  visual  check  of  the  acquired 
data.  Table  II  gives  an  example  of  the  data  recorded  for 
one  Mach  number  and  one  pitch  an‘7le  for  the  "A"  probe. 

All  the  data  in  Table  II  are  stored  in  one  file  for 
each  configuration.  Table  III  gives  a  guide  to  the  data 
files  for  the  "A"  probe  calibration.  They  are  stored  on 
cartridge  26.  The  file  names  follow  the  following 
logic: 

X  Y  K  Z  R  R 

where 

X  *  A  for  the  "A"  probe,  or  *  B  for  the  "B"  probe 
Y  ■  2,  3,  4,  .  .  .  — Mach  number  x  10 
K  -  K,  Kulite 
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2  *  P  for  positive  or  *  N  for  negative  pitch  angle 
RR  *  15,  10,  05,  etc.,  =  magnitude  of  the  pitch  angle 
All  data  taken  for  the  "A"  probe  appeared  to  be  well 
behaved  and  useful  throughout. 

4.4  Type  "B"  Probe  Results 

First  measurements  with  the  "B"  probe  showed  poor 
to  unusable  results.  The  output  of  the  probe  as  a  function 
of  yaw  angle  was  unsymmetrical  for  positive  or  negative  yaw 
angles.  Figure  10  shows  the  output  at  one  Mach  number,  for 
the  full  range  of  pitch  angles.  An  investigation  of  the 
probe  tip  under  the  microscope  showed  that  some  of  the 
holes  in  the  protective  screen  at  the  probe  tip  were  par¬ 
tially  blocked  by  particles  of  dirt  or  glue  (Fig.  11(a), 
and  (b)).  The  holes  were  cleaned  and  the  calibration  rerun. 
Figure  12  shows  the  results  at  a  Mach  number  of  0.4.  The 
characteristics  of  the  probe  were  seen  to  be  much  improved 
and  satisfactory  for  the  intended  application.  Table  XV 
gives  the  list  of  the  data  file  names  as  stored  on  car¬ 
tridge  26. 

4.5.  Calibration  Data  Analysis 

For  the  "A"  probe  the  output  of  the  probe  as  a 
function  of  yaw  angle  PA  =  PA(a)  was  analysed  for  each 
of  the  combination  of  Mach  number  and  pitch  angle.  First, 
the  maximum  value,  PA  max,  was  calculated  as  the  maximum 
value  of  a  fourth-order  polynomial  curve  fit  in  the 
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-20°  <  a  <  20°.  Over  this  limited  range  the  curve  PA  =  PA(a) 

was  fairly  flat  and  a  very  precise  determination  of  the 

maximum  value  was  possible.  Second,  to  establish  values 

of  Pc  for  each  curve,  (see  Section  2) ,  the  data  were  surveyed 
bA 

to  find  the  yaw  angle  closest  to  -63°.  Data  at  this  and 
at  four  values  above  and  four  values  below  this  particu¬ 
lar  yaw  angle  were  approximated  with  a  second-order 
polynominal  and  the  corresponding  value  of  PA,  designated 
pSal  ^aw  was  ca^cu^ate<^*  A  second-order  polynomial  ap¬ 
proximation  for  this  part  of  the  curve  was  adequate  since 
the  characteristic  was  nearly  linear  in  this  range  (see 
also  Appendix  B) .  The  same  procedure  was  used  for  the 
right  hand  side  of  the  characteristic  to  establish  the 

value,  Pg -  ,  at  a  yaw  angle  of  +63°.  The  two  values  were 
aR 

found  to  be  the  same  to  within  a  small  deviation  for  all 

54  configurations.  The  value  of  Pc  was  calculated  as 

bA 

the  average  of  P^A^  and  PgAR.  figure  13  is  an  illustra¬ 
tion  of  the  data  reduction. 

The  only  data  needed  from  the  "B"  probe  was  the  max¬ 
imum  pressure  output  at  each  test  condition.  This  value 
always  occured  for  a  yaw  angle  of  zero  degrees  when  the 
flow  was  aligned.  The  maximum  was  found  by  approximating 
the  output  values  of  P0  over  the  yaw  angle  range 
-30°  <  a  <  30°  with  a  fourth-order  polynomial  and  solving 
for  zero  slope.  The  corresponding  yaw  angle  was  found 
to  be  very  close  to  zero  for  all  54  configurations. 
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Figure  14  shows  a  curve  PB  =  P5(a)  for  one  Mach  number 
and  one  pitch  angle  with  the  value  established  for  P_  max. 

D 

The  values  of  PA  max ,  P0  ,  and  Pr  max  ,  so  derived, 

A 

were  considered  to  be  analogous  to  the  outputs  of  a 
conventional  pneumatic  multi-sensor  probe.  The  calibra¬ 
tion  and  reduction  of  measurements  to  values  of  Mach 
number  and  pitch  angle  (the  yaw  angle  was  always  zero) 
could  be  handled  in  exactly  the  same  way  as  was  done  for 
the  combination  temperature-pneumatic  probe  (see  Ref.  1) . 
The  dimensionless  velocity,  X,  was  used  instead  of  the 

Mach  number,  M  where  X  is  defined  as  X  =  where 

vt 

Vfc  =  V  2  Cp  Tfc,  the  "limiting"  velocity.  The  quantity 
X  can  be  expressed  in  terms  of  Mach  number  as 

X  = 

1  +  Xji  m2 

For  each  of  the  54  test  conditions,  using  the  values 

PA  max,  Pg  ,  and  P0  max,  the  coefficients  3  and  y  were 
A 

calculated  where 

_  PA  max  “  PsA  (1) 

*  ~  P 

A  max 

P  p 

v  =  A  max  ~  B  max  (2) 

PA  max  “  PsA 

and  a  third  coefficient,  6,  was  examined  where 

<5  =  B  *  y 


l^M2 
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S  is  derived  from  values  of  the  "A”  probe  only.  The  "A"  probe 
is  insensitive  to  pitch  angle  as  long  as  it  does  not  exceed  +15° 
to  +20°.  Hence  y  provides  the  measurement  of  the  pitch  angle. 
The  coefficients  8  ,  y  ,  and  5  are  discussed  in  detail  in 
Ref.  1. 

The  data  for  a  complete  calibration  are  given  in  Table  V. 

It  can  be  seen  that  at  fixed  Mach  number  the  value  of  8  is 
always  about  the  same  regardless  of  the  pitch  angle  while  y 
changes  significantly  with  pitch  angle.  The  changes  in  y  with 
changes  in  Mach  number  are  seen  to  be  small. 

If  X  is  expressed  as  a  function  of  3  and  y  ,  X  =  X(£,y) 
and  $  ,  the  pitch  angle  is  expressed  as  a  function  of  2  and 
y  ,  j>  =  M8,y)  the  functions  X(3,y)  and  4>(£,y)  can  be 
approximated  with  polynomials  using  the  methods  described  in 
Ref.  6,  such  that 


x  .  I  '  Vs'*'11  I.  y'1’11 

iii  i  jii1’  I 


where  and  ^  are  constant  coefficients.  Figs.  15(a) 

and  (b)  show  the  surfaces  which  were  obtained  for  X(3,y)  and 
•f(3,y)  ,  respectively. 

The  programs  written  to  approximate  X  =  X(6»y)  and 
t>  =  M8,y)  ,  based  on  the  subroutines  given  in  Ref.  6,  are 

&  REST 8  and  SREST9.  The  programs  are  described  in  detail  in 
Appendix  D.  It  is  noted  that  the  coefficients  were  derived 
for  the  pitch  angle  expressed  in  radians. 
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A  check  of  the  approximation  was  performed  in  order 
to  establish  its  quality.  For  the  measurements  of  g  and  y 
from  the  calibration  X  and  $  were  calculated  using  equations 


where  the  subscription  m  denotes  the  value  measured  or  known 
to  have  been  set  and  subscript  c  denotes  the  value  calcu¬ 
lated  using  the  surface  approximation. 

The  error  ex  is  expressed  as  a  percentage  of  the 
measured  value  while  for  the  pitch  angle  the  absolute  dif¬ 
ference  in  degrees  between  measurement  and  calculation  is 
calculated.  A  percentage  error  in  angle  is  meaningless 
close  to  zero  pitch  angle. 

Table  VI  gives  the  coefficients  obtained  for  the  X 
and  ti  surfaces.  Also  shown  are  the  errors  and  z. 

obtained  using  equation  (3)  and  equation  (4).  Approxi¬ 
mations  were  derived  for  each  of  36  possibilities  con¬ 
sisting  of  combinations  of  first  to  sixth  order  approxi¬ 
mation  for  S  and  first  to  sixth  order  approximation  for  y . 
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The  coefficients  shown  in  Table  VI  gave  the  best  results 
on  average  over  the  range  of  the  calibration.  They  are 
stored  as  7  by  7  arrays  under  the  file  names  shown  on 
cartridge  26.  It  is  noted  that  the  errors  shown  in  Table 
VI  are  an  indication  only  of  the  degree  of  accuracy  of 
the  approximation  technique. 


5 .  VERIFICATION  TESTS 


Two  tests  to  evaluate  the  accuracy  of  the  calibration 
and  of  the  data  reduction  technique  were  made:  (1)  The 
raw  data  from  the  calibration  were  treated  as  test  data 
and  the  reduction  procedure  to  calculate  X  and  <t>  was  applied 
(2)  The  probes  were  mounted  together  on  the  freejet,  the 
flow  was  adjusted  in  Mach  number  and  the  two  probes  were 
set  together  to  the  same  pitch  angles,  which  were  unknown 
to  the  operator  (see  5.2.).  Data  were  acquired  at  specific 
yaw  angles  and  reduced  as  in  the  compressor  application. 

The  results  are  described  in  the  following  paragraphs. 

5.1.  verification  Using  Calibration  Data 

From  the  calibration  test,  the  pressures  for  the 
"A"  and  "B"  probe  were  recorded  for  fixed  Mach  number  and 
pitch  angle  as  PA  =  PA(cx)  and  P0  *  Pg(a)  ^or  a  ran9e 
yaw  angle  of  -80°  <  a  <  80°.  These  distributions  were 
each  approximated  using  a  sixth  order  polynomial,  so  that 
values  PA  and  PB  could  be  interpolated  at  any  yaw  angle. 

For  the  "A"  probe  9  yaw  angles  were  chosen  (+65°,  +45°, 

+30°,  +15°,  0°)  so  that  the  range  of  yaw  angle  necessary 
to  handle  the  data  reduction  was  covered.  Since  for  the 
"B"  probe  sufficient  values  are  required  to  determine 
only  the  maximum  output,  9  different  yaw  angles  for  a 
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relatively  small  range  were  chosen  (+30°,  +22.5  +15°, 

+7.5°,  0°).  Arrays  PA(9)  and  YAWA(9)  were  generated  to 
contain  pressure  and  yaw  angles  respectively  for  the  "A" 
probe  and  similarly  PB(9)  and  YAWB(9)  were  generated  for 
the  "B"  probe.  These  data  were  then  in  a  format  as  if 
they  were  produced  by  the  data  acquisition  program  for 
compressor  measurements,  and  could  be  reduced  in  the  same 
way. 

From  the  fourth  order  polynomial  for  the  "B"  probe 
data,  the  maximum  value  Pgmax  and  yaw  angle  at  which  it 
occured  were  stored,  for  each  data  set. 

PA (9)  vs.  YAWA(9)  and  PB(9)  vs.  YAWB(9)  were  approxi¬ 
mated  using  fourth  order  polynomials.  For  each  data  set 
the  curve  PA  *  PA(oO  was  searched  for  the  yaw  angles  where 
the  spread  between  left  and  right  branches  was  126°. 
Corresponding  to  definitions  used  in  the  reduction  of 
calibration  data,  the  pressure  determined  at  the  left 
branch  was  psal  an<*  the  one  at  branch  was  pSar* 

These  pressures  were  as  defined  here,  the  same  and 
were  equivalently  equal  to  the  value  PsA  (see  Fig.  13) . 

PA  max  was  calcu^ate^  using  the  fourth  order  polynomial 
PA(a)  at  the  value  of  yaw  angle  midway  between  the  values 
corresponding  to  P$Al  and  ?sAr* 

S  and  y  were  calculated  using  equations  (1)  and  (2) 
for  each  data  set.  Using  these  values,  the  coefficients 
from  data  files  MISTXV  and  MISTIFI  and  the  aquations  (3) 
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and  (4),  the  corresponding  values  of  X  and  <j>  were  computed. 

The  yaw  angle  was  taken  to  be  that  corresponding  to  the 
value  PBmax  because  the  "B"  probe  had  a  clearly  defined 
maximum  whereas  the  "A"  probe  did  not  (see  Figs.  13  and  14). 

The  values  so  obtained  for  X,  $,  and  a  using  this  reduction 
technique  were  compared  to  the  corresponding  values  known 
to  have  been  set  and  recorded  during  the  test.  Errors 
were  calculated  following  equations  (5)  and  (6) .  A  third 
error,  ca,  for  yaw  was  calculated  using 

ea  *  am  ”  ac  (7) 

where  am  was  the  measured  yaw  angle  and  aQ  was  the  yaw  angle 

calculated  from  the  "B"  probe  data.  Since  ctm  was  always 
zero  during  the  calibration,  the  error  so  defined  was 
equal  to  minus  the  value  calculated  in  the  reduction  pro¬ 
cedure. 

The  calculations  described  required  extensive  data 
handling.  A  program  was  written  (EVALU)  to  read  the  two 
data  files  (for  the  "A”  and  "B"  probes)  and  carry  out  the 
calculations.  The  program  accesses  and  reduces  data  for 
one  configuration  (Mach  number  and  pitch  angle)  at  a  time. 

It  prints  the  calculated  and  measured  values  and  the  errors 
defined  in  equations  (5),  (6),  and  (7)  before  returning 
automatically  to  read  the  files  for  data  from  the  next 
configuration.  Program  EVALU  is  described  in  detail  in 
Appendix  E. 

21 


Cwr." 


t 


Table  VII  shows  a  comparison  of  the  measured  and 
calculated  data.  Values  for  Mach  number  from  0.3  to  0.7 
and  pitch  angle  between  0°  and  15°  are  given  since  these 
are  the  range  of  values  expected  in  the  intended  appli¬ 
cation.  The  average  error  in  X  (or  velocity)  was  about 
-0.4%  with  a  maximum  value  of  -1.336%.  The  average  pitch 
angle  error  was  0.12°  with  a  maximum  value  of  1.36°. 

An  average  yaw  angle  error  of  0.6°  was  obtained  with  a 
maximum  error  of  -1.16°.  Figure  16(a),  (b)  and  (c)  show 
these  errors  plotted  as  functions  of  Mach  number  and 
pitch  angle.  No  significant  trends  were  detected  in 
these  data  except  perhaps  in  e^.  Table  VII  shows  that 
the  yaw  angle  error  was  always  negative  at  an  average 
magnitude  of  roughly  half  a  degree.  This  is  probably 
an  indication  of  the  fixed  error  involved  in  mounting 
the  probe  on  the  free jet. 

It  should  be  noted  that  the  probe  mounting  used  on 
the  free jet  and  on  the  compressor  were  not  the  same. 

After  the  calibration  and  verification  tests  were  made 
on  the  free jet,  the  probes  were  mounted  in  special  actu¬ 
ators  for  use  on  the  compressor.  First  however,  the 
assembled  probe  and  actuators  were  mounted  in  turn  on  a 
six  foot  long,  four  inch  diameter  pipe  which  was  fed  by 
the  laboratory  air  supply.  In  this  pipe,  due  to  its 
length  to  diameter  ratio,  a  steady  symmetrical  airflow 
parallel  to  the  pipe  centerline  was  assured.  For 
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different  Mach  numbers — pitch  angle  was  constrained  to 
zero  degrees— each  probe  was  yawed  about  its  tip  to  either 
side.  By  comparing  left  and  right  branches  of  the  indi¬ 
cated  probe  output  the  yaw  angle  vernier  was  set  to  zero 
at  the  point  of  symmetry,  corresponding  to  aligned  flow. 
The  probe  was  secured  in  the  actuator  so  that  for  com¬ 
pressor  measurements,  zero  yaw  corresponded  precisely  to 
alignment  with  the  axial  flow  direction  through  the 
machine. 

5.2.  Verification  on  the  Free jet 

In  order  to  verify  the  probe  calibration  and  data 
reduction  in  a  known  flow,  the  probes  were  mounted  to¬ 
gether  on  the  free jet.  Only  the  yaw  angle  of  one  probe 
(the  "A"  probe)  could  be  read  using  the  data  acquisition 
system.  The  probes  were  displaced  peripherally  at  an 
angle  of  90°  to  each  other  (see  Fig.  6) .  While  the  tip 
of  the  "B"  probe  was  on  the  centerline,  the  tip  of  the 
"A"  probe  was  retracted  radially  about  one  inch  from  the 
centerline  to  avoid  flow  interference  between  the  probes. 
Both  probes  were  mounted  on  the  same  type  of  pitch  angle 
adjustment  device. 

In  the  test  procedure  the  probes  were  set  in  unison 
to  controlled  pitch  angles  and  Mach  numbers  which  were 
unknown  to  the  operator.  At  each  setting,  the  two  probes 
were  each  rotated  to  9  different  yaw  angles  (+65°,  +45°, 
+30°,  +15°,  0°) .  Data  were  taken  for  each  of  the  9  yaw 
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positions.  The  pressure  readings  recorded  were  the  average 
of  10  sucessive  samples.  Before  the  actual  test  the  zero 
drift  of  the  sensors  was  checked.  For  the  "A"  probe  this 
was  done  by  comparing  the  probe  output  when  set  to  zero 
pitch  angle  with  pressure.  For  the  “B"  probe,  the  probe  was 
set  to  -35°  in  pitch  (see  Fig.  4)  and  a  simil?r  compari¬ 
son  was  made.  The  data  taken  were  not  stored  but  only 
printed.  Appendix  F  contains  the  computer  program  TEST 
which  acquired  the  data  and  performed  the  data  reduction. 

In  order  to  check  the  yaw  angle  determined  by  the 
reduction  procedure  the  probe  yaw  angle  data  were  artifi¬ 
cially  offset.  The  9  yaw  positions  recorded  were  changed 
by  adding  a  constant  to  each:  65°+X,  45°+X,  3Q°+X,  15°+X, 

0°+X,  -15°+X,  -30°+X,  -45°+X,  -65°+X.  The  data  reduction 
procedure  should  then  produce  a  value  for  the  yaw  angle 
equal  to  X. 

Table  VIII  shows  results  of  the  verification  tests. 

Shown  are  the  results  for  values  of  Mach  number  and  pitch 
angle  which  are  typical  of  those  to  be  expected  in  the 
compressor.  The  errors  given  in  Table  VIII  are  defined  as 


where  index  s  is  the  set  condition  and  c  the  calculated 
value . 
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The  values  of  ev,  e,,  and  e.  obtained  were  considered 
to  represent  an  acceptable  accuracy  for  the  planned  appli¬ 
cation  of  the  technique.  In  particular,  the  accuracy  of 
the  pitch  angle  measurement  was  encouraging.  The  pitch 
angle  was  of  particular  concern  because  the  distribution 
of  pitch  behind  the  rotor  was  a  particular  goal  of  the 
intended  measurements  which  could  lead  to  important  con¬ 
clusions  concerning  the  flow  through  the  rotor.  As  shown 
in  Tables  VII  and  VIII,  the  errors  in  pitch  angle  measure¬ 
ment  appear  to  be  acceptable. 
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6 .  APPLICATION  IN  COMPRESSOR  TESTS 

Complete  results  of  compressor  measurements  made  with 
the  probe  system  will  be  reported  later.  Some  initial 
measurements  are  reported  here  to  examine  and  illustrate 
the  reliability  and  accuracy  of  the  probe  system  and  of 
the  data  reduction.  Since  the  data  acquisition  in  the 
compressor  is  more  complicated  than  in  calibration  tests 
on  the  free jet,  the  procedures  and  the  programs  used  are 
described  in  detail. 

6.1.  Necessity  of  an  Online-Calibration 

The  semi-conductor  transducers  are,  to  some  degree, 
sensitive  to  temperature  change  as  well  as  to  differential 
pressure  change.  If  a  relationship  between  differential 
pressure  and  voltage  output  of  the  transducer  was  estab¬ 
lished  by  calibration  before  the  compressor  was  started, 
there  would  be  no  guarantee  that  this  relationship  would 
remain  valid  while  the  machine  was  running.  A  total 
temperature  rise  of  25°F  occurs  in  flow  through  the 
rotor  and  the  actual  temperature  of  the  probe  itself 
must  increase,  but  can  never  be  known  precisely.  The 
magnitude  of  the  probe  temperature  rise  is  large  enough 
however  that  the  change  in  the  transducer's  voltage/ 
pressure  relationship  must  be  taken  into  account  in  some 
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way.  This  is  done  through  online  calibration. 


6.2.  Online  Calibration 

Although  there  is  a  temperature  sensitivity,  the 
relationship  between  the  voltage  output  of  the  transducer 
and  the  differential  pressure  is  found  to  be  always  linear 
(Ref.  2,  3).  Thus,  if  e  denotes  the  voltage  output  and 
IP  the  corresponding  differential  pressure,  the  equation 

AP  =  i  +  S  *  e  (8) 

describes  the  calibration,  where  i  is  the  intercept  and 
S  is  the  slope. 

The  transducer  is  arranged  in  the  probes  such  that 
any  desired  constant  pressure,  Pr,  can  be  applied  to  the 
back,  or  reference  side,  of  the  transducer.  The  unknown 
pressure  on  the  front  of  the  transducer,  P,  which  is 
varying  in  time,  is  given  by  P  =  AP  +  Pr,  or 

P  =  i  +  S  •  e  +  Pr  (9) 

The  on-line  calibration  procedure  establishes  values 
for  the  slope  and  intercept  while  the  compressor  is  oper¬ 
ating  at  the  speed  and  flow  rate  at  which  probe  data  are 
required.  The  procedure  to  establish  the  slope  is  the 
same  for  both  the  Type  "A"  and  Type  "3"  probes.  The 
procedure  for  the  intercept  is  more  elaborate  and  quite 
different  for  the  two  probes.  The  procedures  are  described 
separately  in  the  following  paragraphs. 
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6.2.1.  Procedure  For  Slope 

At  a  given  steady  machine  condition,  the  time 
average  probe  pressure,  P,  is  constant.  Because  of  thermal 
inertia  it  is  reasonable  to  assume  that  both  the  slope  S 
and  the  intercept  i  are  also  constant,  although  unknown. 

If  two  different  reference  pressures,  Pr^  and  Pr2,  are 
applied  to  the  transducer  in  turn,  and  the  corresponding 
time-averaged  output  voltages  e^  and  i"^  are  recorded  then, 
from  equation  (9)  , 

P  =  i  +  S  •  n  +  Pri  ( 10a) 


and 


P  =  i  +  S  •  e2  +  Pr2 


(10b) 


combining  these  equations,  it  follows  that 


S  = 


P  P 
r2  "  rl 

*2  '  «1 


(ID 


Equation  (11)  provides  the  means  to  calculate  the  slope 
of  the  transducer  from  measurements.  In  practice  four  to 
five  different  reference  pressures  are  applied  and  the 
slope  is  calculated  as  a  linear  approximation  (by  least 
squares)  to  the  variation  of  e  vs.  Pr- 

6.2.2.  Procedure  For  Type  "A"  Probe  Intercept 

The  time  averaged  flow  conditions  in  the 
measuring  plane  are  established  using  the  combination 
pneumatic  and  temperature  probe  reported  in  Ref.l.  The 
probe  determines  values  for  the  Mach  number,  pitch  angle 
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and  yaw  angle*.  The  combination  probe  tip,  with  its 
arrangement  of  four  pressure  tubes,  is  shown  in  Fig.  17. 
When  the  probe  is  aligned  to  balance  pressures  P2  and 
P-j,  the  pressure  referred  to  as  P^  is  a  measurement  of 
the  total  pressure,  since  the  flow  pitch  angle  can  not 
exceed  about  11°  at  the  rotor  exit.  Similarly,  the  type 
"A"  probe  when  aligned  at  the  time-averaged  yaw  angle 
is  also  in  principle,  a  total  pressure  probe.  By  equating 
the  measured  pneumatic  pressure  P,  to  be  equal  to  the 
time-average  of  the  pressure  seen  by  the  type  "A"  probe, 
P^,  the  intercept  of  the  ”A"-probe  can  be  calculated 
using  equation  (10)**. 

Data  for  the  calculation  of  the  intercept 
was  gathered  during  the  acquisition  of  time-resolved  flow 


* 

The  question  of  whether  a  pneumatic  probe  can  measure 
the  correct  tine-averaged  values  of  fluctuating  pressures, 
raised  in  Ref.  7  and  Ref.  8,  was  addressed  in  Ref.  1.  It 
was  shown  that  for  the  conditions  measured  to  date,  the 
results  of  the  combination  probe  were  accurate.  Neverthe¬ 
less,  the  possibility  that  an  increase  in  rotor  speed, 
resulting  in  higher  fluctuation  pressure  amplitudes  and 
pressure  ratios,  might  affect  the  accuracy  of  the  pneumatic 
measurements  is  accepted;  and  close  attention  will  be  paid 

to  it  in  the  future. 

★  ★ 

The  "time-average"  voltage  could  be  recorded  using 
the  integrating  DVM  or  by  acquiring  a  large  number  of  dis¬ 
creet  samples  at  arbitrary  intervals  using  the  HP  5610  A/D 
converter  and  computing  the  average.  In  early  tests,  the 
samples  for  the  time-average  measurements  were  taken  using 
the  A/D  converter  in  the  so  called  "free-run"  mode.  Roughly 
1500  single  data  samples  were  collected  over  about  15  msec. 

A  comparison  of  the  average  values  acquired  this  way  with 
those  given  by  a  digital  voltmeter  consistently  showed 
agreement  to  within  +0.5%.  Subsequently,  for  convenience, 
the  DVM  was  used  to  acquire  values  of  the  time-averaged 
voltage  S  from  the  Kulite  probes  during  the  online  calibration. 
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data.  At  each  yaw  angle  to  which  the  two  probes  were 
set,  readings  of  the  probe  transducer  outputs  were  re¬ 
corded  using  the  DVM.  Data  from  the  combination  probe 
were  acquired  also;  however,  the  probe's  yaw  angle  was 
not  changed.  The  DVM  voltage  readings  from  the  "A" 
and  "B11  probes  were  approximated  as  functions  of  the 
corresponding  yaw  angles  by  fourth  order  polynomials, 

=  e^(c i)  and  e^  =  e^(a).  The  maxima  of  these  functions 
were  derived  mathematically  and  designated  e^max  and 
e~max  respectively. 

The  value  e^max  was  found  to  exist  at  a 
flow  yaw  angle  very  close  to  the  yaw  angle  measured  with 
the  combination  probe.  For  the  A  probe,  a  pressure  co¬ 
efficient  was  defined  as 


(12) 


The  index  "0"  indicates  that  the  coefficient  was  derived 


for  the  yaw  angle  where  the  probe  was  aligned  with  the 


time-averaged  flow. 


Ideally  Cp^  would  be  unity,  since 


the  "A"  probe  is  expected  to  measure  total  pressure  if 
properly  aligned  with  the  flow.  However,  during  the 
calibration  procedure  (reported  in  Section  4)  it  was 
found  that  CpAg  depended  slightly  on  the  probe  pitch 
angle,  although  not  on  Mach  number.  As  shown  in  Fig.  18, 
CpAQ  varies  within  the  range  of  0.990  to  1.020.  The 
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relationship  between  CpAg  and  pitch  angle  obtained  in 
the  steady-flow  calibration  was  approximated  by  a  fourth 
order  polynomial.  Using  this  approximation  and  the  time- 
averaged  pitch  angle,  stagnation  pressure  (fp  and 
static  pressure  (Pp ,  P^max  can  be  calculated  using 
Equation  (12) . 

Knowing  the  values  e^max,  the  slope  s  and  the 
reference  pressure  (pp ,  the  intercept  (i)  of  the  A-probe 
can  be  calculated  using  equation  (10).  Thus  the  rela¬ 
tionship  between  the  probe  and  the  time-varying  voltage 
signal  from  "A"  probe  is  known,  using  equation  (9) . 
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6.2.3.  Procedure  for  Type  "3"  Probe  Intercept 


The  determination  of  the  intercept  of  the  "B" 
probe  is  indirect.  Unlike  the  "A"  probe  there  is  no 
matching  pneumatic  measurement  for  the  "B"  probe.  Such 
an  approach  would  be  too  inaccurate.  The  "B"  probe  is 
intended  to  be  very  sensitive  to  pitch  angle  changes, 
so  that  a  very  small  difference  in  tip  geometry  of  the 
Kulite  and  an  "equivalent"  pneumatic  probe  would  cause 
a  potentially  large  error  in  the  calculation  of  the 
intercept.  Thus  an  alternate  way  to  derive  the  "Bn- 
probe  intercept  was  adopted. 

During  the  online  calibration  procedure,  the 
"A"  and  "B"  probes  are  set  to  the  same  yaw  angle  as  the 
combination  probe.  In  this  orientation,  all  three 
probes  are  aligned  with  the  time-average  flow  vector. 

This  flow  vector  is  determined  totally  by  the  combination 
probe,  and  thus  the  yaw  angle,  pitch  angle,  Mach  number, 
total  and  static  pressures  are  known  for  the  time-averaged 
conditions. 

A  pressure  coefficients,  CpQ  can  be  calcu¬ 
lated  for  the  "B"  probe  using  the  definition 


If  the  pressure  reading  of  the  "B"  probe  when  aligned  with 
the  flow  is  referred  to  as  P^max»  the  corresponding  pressure 
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coefficient,  CpB^,(at  zero  yaw  angle  of  the  probe  with 
respect  to  the  flow)  is  given  by 


(14) 


From  the  calibration  tests  reported  in  Section 
4,  values  of  C^bq  were  determined  for  each  of  54  combina¬ 
tions  of  Mach  number  and  pitch  angle.  These  data  are 
given  in  Table  IX.  Figure  19  shows  these  calibration  data 
for  plotted  as  a  function  of  Mach  number  and  pitch 

angle.  While  the  dependence  on  Mach  number  is  seen  to 
be  small,  a  strong  and  well-behaved  relationship  between 


Cp  and  pitch  angle  can  be  ovserved. 
BO 

as  a  function. 


was  viewed 


cPQq  =  cPbo(x,;()) 


(15) 


The  function  in  equation  (15)  was  similarly  approximated 
using  the  calibration  data  as  a  surface  depending  on  two 
independent  variables  (Section  4.4).  Appendix  G  describes 
the  computer  program  used  and  illustrates  the  results. 

Using  the  expression  for  the  surface  represented 
by  equation  (15) ,  and  values  of  the  Mach  number  and  pitch 
angle,  given  by  the  combination  probe,  at  each  operating 
point,  CpBQ  WBre  calculated.  Then,  using  the  time-averaged 
total  and  static  pressures  given  by  the  combination  probe 
measurement*  a  corresponding  value  of  P^ax  can  be  calcula¬ 
ted  using  equation  (14).  Using  the  recorded  value  of  the 
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"B"  probe  voltage  output,  eBmax,  corresponding  P  ,  and 
the  value  established  earlier  for  the  transducer  slope, 
the  intercept  of  the  "BM  probe  was  calculated  using 
equation  (10) .  Thereafter,  equation  (9)  could  be  used 
to  convert  time-dependent  voltage  readings  to  absolute 
pressure  values. 

6.3.  Data  Acquisition  in  TX-Compressor  .Measurements 

The  hardware  of  the  dual  probe  digital  sampling 
technique  was  described  in  Section  2.  The  present  sec¬ 
tion  describes  the  procedures  and  software  used  to  ac¬ 
quire  and  store  raw  data  necessary  to  determine  blade- 
to-blade  velocity  distributions.  The  sequence  of 
events  is  summarized  in  Table  X. 

As  described  in  Section  2  and  Section  4.5,  at 
each  blade-to-blade  location  sufficient  data  from  the 
"A"  and  "B"  probes  were  required  that  functions 
PA  =  PA(a)  and  =  Pg ( a)  could  be  established.  However, 
the  yaw  angle  was  not  known  apriori  for  any  of  the  256 
positions  at  which  data  were  acquired.  The  time  average 
yaw  angle  was  known  from  the  combination  probe  and 
variations  in  yaw  angle  were  selected  to  be  about  this 
value. 

It  was  found  that  yaw  angle  varied  typically  -5° 
to  +15°  from  the  time  averaged  value.  Thus  data  were 
acquired  for  9  different  probe  yaw  angles  covering  a 
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range  of  the  average  yaw  angle  minus  5°  minus  65°,  and 
plus  15°  plus  65°,  in  order  to  make  sure  that  a  sufficient 
range  was  covered  to  define  the  maximum  values  from 
?A  =  P^(  a)  and  Pg  =  Pg(ci)  for  -a  =  +63°. 

Program  &ABKUL  was  used  for  the  data  acquisition. 

It  is  described  in  detail  in  Appendix  A.  Figures  20a  and 
20b  show  an  output  of  the  raw  data.  Shown  are  the  outputs 
of  "A"  probe  (Fig.  20  a  +  b)  &  "B"  probe  (Fig.  20  c  +  d)  for  all 
256  positions  and  for  the  9  different  probe  yaw  angle 
settings.  The  plots  were  generated  by  program  &WAVE 
which  is  described  in  Appendix  I.  Besides  plotting  data 
from  a  data  file  the  program  also  offers  the  possibility 
to  acquire  data  from  one  Kulite  probe  and  plot  it  on-line. 

All  data  acquired  with  program  &ABKUL  are  stored 
in  one  large  data  file.  This  includes  the  unsteady  meas¬ 
urement  data,  all  the  steady  state  data  for  the  online 
calibration  and  the  combination  probe  measurements.  Thus 
each  data  set  is  complete  and  independent  of  any  ether 
information. 

Table  Xa  shows  an  example  of  steady  state  data 
acquired  for  the  online  calibration  (see  Section  6.2.); 
values  for  the  slopes  of  the  Type  A  before  (1st)  and 
after  (2nd)  the  paced  data  acquisition.  This  output 
allows  comparison  of  the  results  of  the  two  calibrations. 

If  the  corresponding  values  of  slope  differ  by  more  than 
+  1.5%,  which  indicates  drift  during  the  measurement 
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period,  the  data  are  not  accepted.  The  "intercepts"  of 
"A"  and  "B"  probes  are  also  printed.  These  values  are 
only  used  however  to  monitor  changes  during  the  data 
acquisition.  The  actual  intercept  of  the  voltage- 
pressure  characteristic  must  be  calculated  from  these 
values  as  described  in  Section  6.2.  Here  again  a  dif¬ 
ference  of  more  than  +1.5%  is  taken  as  evidence  that 
the  transducer  drifted  during  the  measurement.  The 
other  data  shown  in  Table  X  is  raw  data  which  is  printed 
out  immediately  after  it  is  acquired  so  that  it  can  be 
checked.  Combination  probe  data  are  always  acquired 
with  the  Kulite  probe  data.  Table  Xb  shows  steady- 
state  data  taken  with  the  data  from  the  "A"  and  "B" 
probes.  For  each  probe  yaw  angle  setting  the  same  data 
is  acquired  as  for  the  online  calibration.  The  values 
"yaw  A  pr."  and  "yaw  B  pr."  give  the  probe  yaw  angle 
settings  (nine  positions) .  In  the  third  column  values 
DCA  and  DCB  are  printed.  As  described  in  Section  6.2., 
these  are  the  dc  voltage  levels  of  the  "A"  and  "B”  probes 
which  will  be  used  for  the  determination  of  the  inter¬ 
cept.  For  each  of  the  nine  positions,  values  called 
"averaged  values  paced  output"  for  "A"  and  "B"  probes  are 
printed.  Those  are  the  averages  of  the  256  single  meas¬ 
urements  of  each  of  the  probes.  A  comparison  of  these 
values  with  the  DCA  and  DCB  values — if  the  decimal  point 
is  neglected— show  differences  of  up  to  5%.  This  is 
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because  the  DC  values  are  derived  for  the  whole  rotor, 
while  the  paced  output  values  are  from  two  selected  blade 
pairs  only. 

The  single  raw  data  file  is  arranged  in  a  20  by  256 
array.  Table  XI  shows  the  location  of  the  data  within  that 
array.  Column  #1  contains  the  data  for  the  online  calibra¬ 
tion  only  while  column  #20  is  reserved  for  the  steady  state 
data  acquired  with  paced  data.  Columns  #2  through  #19  con¬ 
tain  the  raw  data  for  the  nine  yaw  angle  settings  of  the  "A" 
and  "B"  probe,  with  the  Type  A  probe  data  in  even  numbered 
columns,  the  Type  B  probe  data  in  the  odd  numbers.  Table  XI 
also  shows  the  hook-up  for  the  data  acquisition  for  the  steady 
state  data.  This  is  explained  in  more  detail  in  Appendix  H. 
The  data  acquisition  for  one  set  of  data  including  online 
calibrations  and  steady  state  data  requires  some  17  to  20 
minutes . 

6.4.  'Data  Reduction 

After  the  raw  data  is  checked  for  obvious  errors  using 
program  WAVE  (see  section  6.3.)  the  data  reduction  is  carried 
out  using  a  single  program  "ABRED".  The  steps  in  the  pro¬ 
cedure  are  listed  in  Table  J-l  and  Appendix  J  describes  the 
program  in  detail. 

The  program  first  reads  the  coefficient  files  for  the 
calibration  of  the  A-  and  B-probe  as  well  as  those  for  the 
combination  probe.  The  operator  is  then  asked  for  some  input 
concerning  the  amount  of  output  that  is  desired.  The  first 
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calculation  is  to  determine  the  flow  time-average  properties 
from  the  combination  probe  measurements.  The  average  of  the 
readings  obtained  at  the  nine  different  Kulite  yaw  angle  set¬ 
tings  is  computed  since  the  yaw  angle  of  the  combination  probe 
was  not  changed  during  the  acquisition  sequence.  The  results 
shown  in  Table  XII  are  values  for  dimensionless  velocity  (X) , 
yaw  angle,  pitch  angle,  total  pressure  and  static  pressure. 

The  second  calculation  uses  these  values  and  the  ac¬ 
quired  raw  data  for  the  online  calibration  to  compute  the  inter 
cept  values  of  the  "A"  and  "B"  probes.  It  is  at  the  user’s 
discretion  to  output  the  steps  in  this  process  in  order  to 
check  the  calculations  performed  (see  Appendix  J) . 

The  first  reduction  of  Kulite  data  performed  is  for  the 
time-averaged  values  from  Kulite  probe  measurements.  A  DC 
voltage  reading  of  both  probes  was  recorded  for  each  of  the 
nine  yaw  angle  positions  the  probes  were  set  to.  Using  the 
results  of  the  previously  performed  online  calibration,  ab¬ 
solute  pressure  values  are  calculated.  These  are  placed  in 
two  arrays,  PAA(9)  and  PAB(9).  Arrays  YAWA(9)  and  YAWB(9) 
are  filled  with  the  corresponding  yaw  angle  values.  Using 
fourth  order  polynomials  a  relationship  is  approximated  giving 
pressures  of  "A"-  or  "B"-probe  as  functions  of  yaw  angle. 

From  these  functions  the  values  PA  max»  pSl»  pSr'  PSa  and  PB  max 
are  derived  as  shown  in  4.5.  The  flow  yaw  angle  was  assumed 
to  be  the  one  corresponding  to  PB  ^  .  However,  it  should  be 

mentioned  that  the  flow  yaw  angle  derived  from  the  A-probe 


as  the  center  value  between  the  yaw  angles  corresponding  to 
and  PSr  deviates  only  slightly  (±0.5°  to  ±1.0°)  from  the 
one  found  with  the  B-probe. 

From  these  four  pressures,  coefficients  B,  y  and  5  are 
calculated.  Applying  the  calibration  coefficients  to  these 
values  X —  or  Mach  number  —  and  pitch  angle  are  calculated 
lated.  Thus  the  time  average  flow  vector  is  determined. 

If  it  is  compared  to  the  one  derived  from  the  combination 
probe  measurement,  the  differences  turn  out  to  be,  typically 
0.64%  in  Mach  number 
0.55°  in  pitch  angle 
0.63°  in  yaw  angle 

The  magnitude  of  these  differences  is  acceptable.  Table 
XII  shows  results  of  an  actual  data  set  from  a  compressor  test 
run.  At  the  very  top  .values  calculated  from  combination  probe 
measurements  are  displayed  followed  by  the  results  of  the 
online  calibrations  for  both  "A"  and  "B"  probe.  Immediately 
thereafter  the  contents  of  the  arrays  ?AA(9) ,  PAB(9),  YAWA(9) 
and  YAWB ( 9 )  are  given  showing  the  average  pressure  values  of 
both  Kulite  probes  and  their  corresponding  yaw  angles  for  the 
overall  flow  measurement.  The  values  PsL,  pA  max  and  psR  de- 
rived  from  those  are  shown  as  well  as  the  corresponding  yaw 
angles.  Next  PB  max  and  the  yaw  angle  for  this  pressure  is 
given. 

In  the  following  line  the  actual  flow  quantities  as 
derived  from  the  "A"-"B"  probes  are  listed.  XU,  XAX  and 


BETA2  are  calculated  from  Xr  pitch  and  yaw  angle,  the 
circumferential  speed  and  axial  speed  are  printed  also. 

These  values  are: 

XU  =  Circumferential  speed  (dimensionless) 

XAX  =  Axial  speed  (dimensionless) 

BETA2  =  Relative  flow  angle  in  the  measuring  plane. 

Once  the  overall  flow  vector  is  determined  from  the  Kulite 
probes  ar.d  compared  to  the  results  from  the  combination  probe, 
individual  measurements  are  reduced  for  any  or  all  of  the  256 
positions.  Whether  all,  one  or  any  set  of  positions  is  re¬ 
duced  is  operator-controlled  by  input  parameters. 

The  same  way  the  data  reduction  was  carried  out  for  the 
time-average  flow  vector  the  raw  data  for  all  256  single  posi¬ 
tions  are  treated.  Arrays  PA(9)  and  PB(9)  are  filled  with  nine 
individual  pressures  of  "A"  and  "B"  probe  which  were  derived 
from  the  raw  data  applying  the  results  from  the  online  cali¬ 
bration.  The  yaw  angle  settings  YAWA(9)  and  YAWB(9)  are  the 
same  nine  values  as  before.  Those  are  the  same  throughout 
the  whole  reduction  since  they  are  the  ones  the  probes  were 
set  to.  In  Table  XII  the  arrays  of  PA,  PB,  YAWA  and  YAWB  are 
shown.  Also  given  are  arrays  PAC(9),  DPA,  PBC(9),  DPB .  As 
mentioned  previously  P^  and  Pg  are  approximated  as  functions 
of  yaw  angle  by  fourth  order  polynomials.  In  order  to  check 
the  quality  of  that  approximation,  using  the  polynomials, 
values  are  calculated  for  the  nine  given  yaw  angles  (PAC(9) 
and  PBC (9) )  and  the  difference  between  the  measured  pressure 


value  ?A  or  PQ  and  the  calculated  value  PAC  or  PBC  is  dis¬ 
played  as  DPA  or  DPB.  As  long  as  the  values  DPA  and  DPB 
are  smaller  than  ±2  inches  of  water  (all  pressures  shown 
are  in  inches  of  water),  it  can  be  assumed  that  the  approxi¬ 
mation  fits  the  data  points  sufficiently  well. 

Above  the  array  of  measured  data  are  some  reduced  values. 
Again  Ps^,  PA  max  and  PSr  are  printed  with  their  correspond¬ 
ing  yaw  angles.  Below  the  array, Ps  max  and  the  flow  angle 
for  this  particular  position  are  given.  In  the  last  line 
position  number,  beta,  gamma,  X —  or  Mach  number  — ,  pitch 
angle  and  yaw  angle  for  this  position  are  given. 

If  a  data  reduction  shall  be  performed  for  all  256  posi¬ 
tions  it  is  advisable  to  skip  the  print-out  of  the  raw  data 
and  all  intermediate  steps  (primary  input) .  This  way  there 
will  be  only  the  print-out  of  the  last  line  of  Table  XII  for 
each  of  the  positions. 
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Data  Presentation  and  Evaluation 


In  chapter  6.4  the  reduction  procedure  of  the  raw  data  to 
discrete  values  of  X-  (or  Mach  number) ,  pitch  angle  and  yaw 
angle  for  all  or  any  of  the  256  positions  of  measurement  was 
described.  All  these  flow  parameters  were  stored  in  a  single 
file  and  can  be  retrieved  at  any  time.  In  order  to  get  an  idea 
of  the  flow  behavior  with  respect  to  the  rotor,  the  flow  para¬ 
meters  were  plotted  as  a  function  of  the  position  within  the 
rotor  frame.  Figure  21(a)  shows  the  distribution  of  X  ; 

Fig.  21(b)  gives  the  yaw  angle  and  Fig.  21(c)  the  pitch  angle 
distribution.  The  programs  used  to  generate  these  plots, 
namely  PLOTX,  PLOTY  and  PLOTP,  are  described  in  Appendix  L. 

The  general  behavior  of  the  measurements  was  examined. 

For  this,  the  assumption  was  made  that  the  relative  flow  angle 
at  the  rotor  trailing  edge,  3 2  ,  was  constant  for  a  given 
radius  (see  Fig.  22).  Figure  23  shows  the  velocity  triangles 
for  the  flow  leaving  the  rotor.  If  2  and  Xu  ,  the  circum¬ 
ferential  velocity,  are  constant,  any  change  in  the  Mach  number 
of  the  relative  flow  will  reflect  in  a  change  of  yaw  angle  and 
Mach  number  of  the  absolute  flow.  Using  the  nomenclature  in 
Fig.  23,  at  any  given  flow  condition  i  the  absolute  velocity 
is  given  by 

X 

u 

X  —  -  (16) 

v^  tan  3 2  .  cos  +  sin 
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Figure  24  shows  X  as  a  function  of  yaw  angle.  To  be 

vi  • 

examined  is  the  yaw  angle  corresponding  to  the  minimum  value 
of  Xv  .  From  Fig.  23  it  can  be  seen  that  this  yaw  angle 
is  (90^  -  12)  which  is  indicated  also  on  Fig.  24.  Looking 
at  Fig.  21(b)  it  was  found  that  indeed  the  minima  of  xve]_ 
correspond  to  a  yaw  angle  of  39.11°. 

Another  characteristic  point  in  Fig.  21(b)  is  the  maximum 
value  (48°)  of  the  yaw  angle.  When  x  ^  was  derived  from 
equation  16  and  from  Fig.  24  for  that  yaw  angle,  a  value  of 
.1572  was  obtained.  This  value  was  found  to  be  consistent 
with  the  measured  Mach  number  for  that  particular  location. 
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DISCUSSION  AND  CONCLUSIONS 

As  pointed  out  in  chapter  6.2  the  absolute  accuracy  of 
the  Kulite  measurements  is  governed  by  the  accuracy  of  the 
combination  probe  measurements.  At  higher  Mach  numbers  yet 
to  be  measured,  this  may  become  a  problem  (see  Ref.  1)  . 

Reference  7  shows  that  the  pneumatic  measurement  might  be 
incorrect  if  the  fluctuations  in  press ure  increase  in  ampli¬ 
tude  beyond  certain  limits.  Since  the  experiments  of  Ref.  7 
were  carried  out  using  a  totally  different  set-up  for  measure¬ 
ments  of  total  and  static  pressures,  the  results  are  not 
directly  comparable,  however,  an  examination  of  the  possible 
influence  of  such  errors  was  attempted. 

The  assumption  was  made  that  PI  should  be  treated  like  a 
total  pressure  probe  and  P23  and  P4  like  static  pressure  probes. 
It  was  assumed  that  an  error  in  the  measurements  of  PI  and  also 
in  P2  3  and  P4,  or  in  Pi  or  P2  3  and  P4  would  occur  at  the  same 
time,  giving  a  total  of  three  possible  combinations. 

An  error  of  10%  defined  according  to  Ref.  7  was  assumed. 
Such  an  error  resulted  in  an  error  of  0.25%  in  the  absolute 
value  of  the  total  pressure  and  0.5%  in  the  static  pressure. 
These  errors  applied  to  the  data  from  data  file  AB1901  resulted 
in  none  of  the  three  error  combinations  giving  a  significant 
change  in  Mach  number  and  yaw  angle  distribution.  The  pitch 
angle  showed  the  only  significant  dependence  on  these  assumed 
errors.  Figure  25  shows  the  comparison  of  calculated  pitch 
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angle  distribution  with  and  without  assumed  errors.  It  can  be 
seen  that  the  biggest  error  was  found  for  the  case  of  a  correct 
total  pressure,  but  an  incorrect  static  pressure  (P2  3  and  P4)  . 
An  average  difference  of  about  one  degree  was  found,  and  the 
distribution  did  not  shew  any  qualitative  differences.  Since 
the  pitch  angle  could  also  be  measured  0.5°  too  low  (if  Pi  is 
measured  incorrectly  but  P2  3  and  P4  are  measured  correctly)  , 
the  achievable  accuracy  of  the  pitch  angle  measurement  is 
within  a  range  of  -0.5°  to  +1.0°  . 

The  basis  of  the  method  of  application  in  the  compressor 
is  that  the  behavior  of  the  probes  as  a  function  of  yaw  angle 
at  each  point  in  the  rotor  frame  is  the  same  as  in  a  steady 
flow  at  the  corresponding  Mach  number  and  pitch  angle.  The 
steady  flow  characteristic  is  known  from  the  calibration.  In 
order  to  examine  the  validity  of  this  assertion,  probe  measure¬ 
ments  were  analysed  for  selected  points  of  measurement  with 
respect  to  the  rotor  frame.  It  was  found  that  the  B-probe 
produced  the  same  characteristic  ?B  vs.  yaw  angle  in  its 
application  as  it  did  in  its  calibration.  The  type  A  probe 
however  showed  different  results  depending  on  the  location  of 
measurement.  Figure  26  shows  the  output  of  the  A  probe  reduced 

to  values  of  C_  plotted  in  comparison  with  the  curve  of  Cp 
A  *A 

as  a  function  of  yaw  angle  established  during  the  calibration. 

It  can  be  seen  that  for  the  time  average  values  the  agreement 

between  test  data  and  the  calibration  is  very  acceptable.  It 


45 


is  also  acceptable  for  data  from  near  mid  passage.  However, 

the  same  is  not  true  for  data  in  Fig.  26  from  the  rotor  wake 

region.  Going  into  the  wake  and  out  of  it  tends  to  skew  the 

top  of  the  function  Cp  vs.  yaw  angle  to  different  sides  of 

A 

the  actual  flow  yaw  angle.  Near  the  center  of  the  wake  the 
probe  characteristic  appears  to  be  similar  to  that  established 
in  the  calibration.  Four  possible  explanations  for  the 
skewing  are  considered: 

a)  Flow  temperature  effect  on  the  probe  output  depending 
on  the  different  probe  yaw  angle  settings. 

b)  Probe  interference  due  to  "steady"  gradient  effect. 

c)  Probe  interference  due  to  "unsteady"  gradient  effect. 

d)  "Incorrect"  averaging  in  a  flow  in  which  Mach  number 
and  flow  angles  are  separately  unsteady,  and  probe  output  is 
non-linear  in  M  ,  a  and  $  . 

The  effect  in  (a)  is  not  a  probable  explanation  since  the 
effect  would  be  present  also  in  positions  outside  the  wake.  It 
is  also  unlikely,  because  of  thermal  lag,  that  the  sensor 
material  could  respond  to  the  high  frequencies  of  the  wake 
fluctuations.  The  effect  in  (b)  could  give  errors  having  the 
observed  qualitative  behavior. 

In  Ref.  9  it  is  shown  that  when  a  velocity  gradient 
strikes  a  total  pressure  probe  the  apparent  location  of  measure¬ 
ment  tends  to  shift  away  from  the  center  of  the  probe  tip.  The 
calculations  carried  out  in  Ref.  9  were  applied  to  the  geometry 
of  the  probes  and  flow  parameters  measured  in  the  blade  wakes 
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with  the  A-B  probes.  It  was  found  that  an  apparent  displace¬ 
ment  of  the  order  of  3%  of  the  probe  outer  diameter  was  indi¬ 
cated  to  be  possible.  Ibis  was  considered  to  be  negligible. 
However,  since  the  results  in  Ref.  (a)  were  for  impact  probes 
at  zero  yaw  angle  to  the  flow  direction,  an  experiment  to  verify 
the  conclusion  for  the  A-B  probes  yawed  in  a  velocity  gradient, 
is  certainly  desirable. 

The  possibility  of  an  unsteady  error  which  results 
from  the  behavior  of  the  probe  itself  must  be  considered. 
However,  it  is  noted  that  the  error  is  only  significant  where 
the  flow  is  unsteady  in  the  rotor  frame.  This  explanation 
would  have  to  be  accepted  if  all  other  explanations  failed, 
and  could  be  verified  by  independent  non-in trusive  measurements 
such  as  LDV.  However,  since  the  error  appears  only  in  the 
unsteady  wake  the  most  probable  cause  is  thought  to  be  ['it  . 

The  existence  of  unsteadiness  of  flow  parameters  in 
the  wake  region  is  clearly  evident  from  oscilloscope  observa¬ 
tions.  The  observed  fluctuations  are  oscillations  in  the  probe 
output  voltage  (pressure)  readings,  which — in  the  data  acquisi¬ 
tion  process— are  ensemble- averaged  over  40  samples  to  repre¬ 
sent  one  value  of  pressure  for  a  single  measurement. 

From  the  average  pressure  values,  pressure  differences  and 
ratios  are  derived  and  reduced  to  obtain  a  velocity  vector  cal¬ 
culated  in  this  way  is  the  same  as  the  average  flow  velocity 
vector.  The  question  clearly,  is  whether  the  flow  velocity, 
vector  calculated  in  this  way  is  the  same  as  the  average  flow 
velocity  vector  which  could  be  obtained  if  the  actual  velocity 
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vector  was  known  for  the  individual  samples.  Clearly,  the  probe 
output  depends  quite  differently  on  variations  in  pitch,  yaw 
and  Mach  number,  and  the  fluctuations  involve  changes  in  all 
three. 

A  first  attempt  was  made  to  examine  the  problem  of  averaging 
Using  calibration  data,  an  array  of  three  Mach  numbers,  three 
pitch  angles  and  three  yaw  angles  was  selected.  This  resulted 
in  a  total  of  27  possible  flow  vectors,  for  which  the  functions 
PA  =  PA(a)  and  PB  *  Pg(a)  were  known.  Since  the  flow  yaw 
angle  during  a  calibration  is  always  zero,  an  "artificial"  yaw 
angle  was  superimposed  on  the  calibration  data.  For  yaw  angles 
different  from  zero,  corresponding  pressure  values  for  the  A  and 
B  probes  were  shifted  by  the  amount  of  the  superimposed  yaw  angle 
but  in  the  opposite  direction. 

In  a  first  step  the  2  7  flow  vectors  were  averaged  by 
averaging  their  velocity  components  U,  V,  W  and  calculating  the 
corresponding  single  values  for  pitch  angle,  yaw  angle  and  Mach 
number.  Secondly,  for  each  of  the  2  7  vectors,  data  sets  PA(9) 
and  PB(9)  (corresponding  to  nine  different  probe  yaw  angles) 
were  built.  These  values  were  averaged  to  result  in  nine  single 
values  for  PA,  PB  and  corresponding  yaw  angles.  The  regular  data 
reduction  procedure  was  then  applied  and  pitch  angle,  yaw  angle 
and  Mach  number  were  calculated. 

Differences  between  the  two  calculation  methods  were 
defined  as: 
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subscript  "af"  meaning  average  from  flow  vectors  and  "ap"  meaning 
average  from  pressure  values. 

The  procedure  was  carried  out  for  four  different  sets  of 
data,  each  consisting  of  27  different  flow  conditions. 

Table  XIV  lists  the  range  within  which  each  of  the  flow 
parameters  was  varied  and  the  differences  resulting  from  the 
calculations.  The  differences  obtained  were  not  large,  however 
it  must  be  noted  that  the  process  of  averaging  which  has  been 
tested  does  not  exactly  simulate  the  one  to  which  the  A-B  probes 
are  subjected  in  the  coiqpressor.  Further  analysis  is  required 
to  properly  evaluate  the  effect  of  averaging  on  the  probe  data. 

In  order  to  explain  the  skewing  observed  in  the  A-probe  output 
in  the  wake  regions,  it  would  only  be  necessary  to  have  fluctua¬ 
tions  which  were  not  symmetric  with  respect  to  the  wake  center- 
line,  as  is  very  likely  to  be  the  case  in  the  wake  of  a  highly 
loaded  compressor  blade. 

In  conclusion,  the  DPDS  technique  has  been  developed 
further  to  successfully  measure  three  components  of  velocity  in 
regions  outside  the  unsteady  rotor  wake.  The  edges  of  the  wake 
region  and  average  conditions  on  the  wake  centerline  are  well 
defined.  A  limitation  to  the  use  of  the  present  method  within 
the  wake  region  is  thought  to  be  due  to  the  necessity  for  ensemble 
averaging.  Further  work  is  planned  to  resolve  this  question. 
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B2KP25  B2KP20  B2KP15  B2KP10  B2KP05  B2KP00  ‘B2KN05  B2KN10  B2KN15 
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Table  VII.  Errors  in  Mach  Number,  Pitch  and  Yaw  Angle  for  the  Application  of 
Calibration  Procedure  to  Calibration  Raw  Data. 
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Table  VIII.  Errors  in  Mach  Number,  Pitch  and  Yaw  Angle  for  A-D  Probe  Application 
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Table  X(a).  On-line  Calibration  Data  for  Actual  Compressor  Test  (run  #119) 
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.  Run  Steady  State  Data  From  A-B  Probe  Measurement  (run  #119) . 
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DAT  A  ARRANGEMENT  IN  DATA  FILE  FOR  RAN  DATA  FROM  KUIITE  SURVEY 
DATA(2C,25&) 


CALIBRATION  l  1st  TAN  A  1st  TAW  B  End  TAW  A  2nd  TAWB 
POINT  ♦ 


9th  TAW  A  5th  TAW  B  t  STEAD t  STATE  y*w 


DATAd, 

DATAd, 


u/  *  vnirtt'.i  (./  vnin\ 

DATAd,  3)  t  DATAO ,  3)  DATAt 

*  S>1  • 

*  *1 

*  I  * 

DATAd,  19)  *J 

DATAd,  21)  ?) 

DATAd,  22)  r 


21)  ' 

22)  t 

X 

t>2 

t 

39)  t 


PATA<2,  1)  DATA(3  1)  0ATA(4,  l>  DATATS,  1) 

DATA<2  2)  DATA(3,  2)  DATAM  ,  2),DATiUS.  2) 

DATA(2,  3)  DATAt3,  3)  DATAd  ,  3),DATA(5,  3) 


DATAd, 

DATAd, 

DATAd, 


DATAd, 

DATAd, 

DATAd, 


DATAd, 

DATAd, 

DATAd, 


DATAd,  93) 

DATAd, 101' 
DATAd, 102) 


DATAd,  113)  t 

DATAd, 12:'  i 
DATAd, 122'  t 


CAT  Ad,  138)  l 

DATAd, 141)  i 
DATAd,  142)  t 


DATAd,  1S3)  t 


DATAd. ISO)  tSlooc  A  1st 
DATAd, 161)  Slf.W.A  1st 

DATAd, 190)  951 aoe  B  1st 
DATAd, 171)  lifter. B  1st 

DATAd,  190)  i?lopc  A  2nd 
DrtTAd,l5t)  llnur.A  End 

DATAd,  190)  iSlnpt  3  2nd 
CATAd,l?l)  tlnt-r.B  2nd 


y 

) 

■+  i) 
+  2) 
r  +  3) 


DATAd?.  1)  DATAd* ,  1! 
DATAdr  2)  DATA! ‘.9  ■) 

DATA,(1<  3)  DATA(1 5;  3) 


<://>/,  6/ ,r, l'  (tit 


DATAd  ,  J  ) 
DA  T  A  d  ,  J  +  1) 
DAT  A  (  1  ,  J  +  2.) 
DA  f  A  (  l  ,  T  +  3) 

.  DATA  <  1.  ,  T  *■ 

t)f>  I  A  (  1.  ,  )  r  b  > 

DATAd,  J  +  M 
DATA ( i  ,  J  +  7) 
DATAd  ;.T+  A) 
-DAT  A  1— J-L  £JL 
D  A 1  A  ( 1.  ,  J  ►  1  U  ) 
DATA  d  ,  J'+  i  1 ) 
DATAd  ,.T >12) 
DAT  A  < l , J  +  V  3 ) 

U 1-1  I  ri  V  1  ,  J  v  .1.  3  ) 
DAT  All,  f +  1  ■_•>  ) 
DAT  A  d  ,  J  t-1.7  ) 


T Alt'!" 2  ’ 
PC,-',  l.i 
Pi 
Pi  3 
P4 
, '  M 

P  HP  '?  !  I 

x  i  :-t  t : 

YALH.'. 

f  All) ,  t 
Y .[  it  H 
YAWP 
P !!  i.l , 


ACCN  (  4 
ACWN  (  4; 

AGON  (  4. 
A CAN  (  4 
dTHN  (  4 

"TtTTTTTTnrC  “ 
SC  A  NR  (  ft 
SCANR (  8 
SC ANRI  P 
’H  hNk’(  2 
ItvAWK  1  W 
SC ANRI  8 
3CANR I  P 
SCANR  I  v. 

bCANi.'  v  lb 
SCANT?  (19, 
SCANT:  (IS, 


DATA  I  20 
DATA  I :  -i 
DATA! 20 
DAT  A  I  2 H 
DATA  I  20 
~Y)  A  T  A  1 2  0 
DA TAI20 
DATA  I  20 
DAT  A  < ;?. 0 
PATAIPij 
DATA!  2.  vl 
DATA  I  20 
DATA  I  20 
DATA  I  20 
-DAlilL2.il 
DATA <20 
DATA  I  20 
DATA  I  20 
DATA  I  20 
DATA (20 


•  Z-  t  *ti  tit  .  , 


,  i  t  > 


A CAN  V  4, 
•vM?  I  4, 
A CAN  I  4 , 
A CAN  V  4 . 
Ad  N  (  4  , 

‘  SCAT  'iTT  TT7 
PCAr-O?  I  8, 
SCAM?  I  3, 


1  .10) 
2 ,10) 

6  ,  i  0  i 

7  ’  i  O  > 

s  .  l  o  ) 


8,25 

.  ■ 


,  T.  i.  v)  > 
,  T  *•  1 1.  > 
,  t  +  i :? ) 
.  r+id) 

T  1  4  ) 
,  l  MS) 

,  I  +  1  S  > 
,  T.+  17  ) 
, +  1 8  ) 
,1  +  19) 


=  scan:?'.  8,33,  1) 
_=_iCdrj2 1  2L..3-4. _ i  > 

—  >1  .rtf-'lTv  8  >  V>  ■->  ,  .).  t 

*  SCANT!  (  B,3c>,  1  ) 

“  SC  (.NT?  <  8,37,  i) 
=  SC  A  NR  (  S  ,  .1 9  ,  }.  ) 

2L-1211A1LU4U.I  i'L — ii. 
=  Sc  A  nr  v  1.5,  IV,  1  > 
~  SCANT)  d  S ,  52  ,  1.  ) 

-  SCi-NR  d.  S  ,53  ,  1. 

=  A VP  A A 

=  AVI?  lift 


TAT?!-!  2' 

PC  A  l  .2 

PI 


P  PAR  O 
/  !.'nC  - 

YAUIC 


1  r-.-'iA 

x ti  o 

YAM  D 

Pi>  af 


PATAI2,2S6)  DATA(3,2St))  BATA(4,2S6)  DATA(B,236) 


WITAI1/.2S6)  DATA(15,2C6) 


Table  XI.  Arrangement  of  Data  Within  Raw  Data  File. 

61 


BftT.Vir  if 
MTA<:<\  ^ 

DATAi^tf,  A 


DATAtZA,  2c). 
OATAiac,  21)' 

datai^, 


DATA(c0:  }>t) 

PAT  A  <2c.  1M 
DATA<^,  I'D 


DATAI2C  CO 

DATAUr  61) 
DATACr,  .V) 


DATA  (2C.  ft), 

DATA <2^.  9"' 
OATAIi^.  !«) 


DATA  (24?.  (CC\ 

DATA  (2^,  I H  ' 
DATA  iZC. 


DATA  (247.  \iC> 

DATAfjiliEl  i 
DATA(2fl 


I  DATA(2f,lTfC’J 

j  2hTK?(. 

S  0*T  A?*  ?,  i  Hi  I 


O  ft  folio,  H/> 
OArfM.il/,  /4  4.) I 


*:M«************************************************* 
RAW  DATA  FILE  :  AB190iii  27 

************#********r******************************* 


FLOW  AVARAGED  VALUES  AS  ESTABLISHED  WITH  THE  COMBINATION  PROBE 


PtotaKINCH  H20 )  Pstatic  <  INCH  H20) 
438 . 8521 1 0  402.299380 


Xwel 
. 15693 


Mach 

.35443 


Phi 


Ynw(dea ) 
30.76 


EQUATION  FOR  A-PROBE  PRESSURE  : 

PA  *  400.532230  +  9966.041000  *  VOLTAGE ( raw>*0 . 01  +  PREF ( INCH  H20> 

CP0A  *  1.00408  CPQB  =  .6394757 

EQUATION  FOR  B-PROBE  PRESSURE  : 

PB  =  405.349850  +  9709.025400  *  VOLTAGE(raw>#0 . 01  +  PREF ( INCH  H20) 

*  PAA < ♦ )  PAB(  *)  YAWA( ♦)  YAWB( ♦) 


388.564  384.562  -40.060  -39.850 
415.562  405.356  -20.040  -19.750 
432.724  417.524  -.37000  0.00000 
438.413  424.489  14.7100  15,0200 
438. 20S  425.738  29.7000  29,7900 
436.311  424.055  44.6600  45.0900 
429.005  417.040  64.9900  65.3300 

8  412.283  400.314  84.7900  85.2400 

9  376.753  370.378  109.570  110.280 
A-PROBE  APPROXIMATION  RESULTS  :  YAW 

PRESSURE  (INCH  H20) 
CPAMAX 


-32.03 
401 . 494630 
1  .  0036 


30.97 

438.987430 


93.97 
401.  .  494690 


B-PROBE  APPROXIMATION  RESULTS  :  YAW0  =  31.1  PRESSURE  (INCH  H20)  =426.03 


AVERAGE  VALUE  RESULTS  FROM  THE  A-B  SYSTEM: 


BETA 
. 08541 


GAMMA 

.34569 


Xuel 
. 15693 


Pitch 
4. 00 


Yaw 
31 . 13 


XU 

.24251 


XAX 
. 13400 


BETA2 

50.33 


A- 

■PROBE  APPROXIMATION  R! 

PRESSURt 

iSVWcHH20)>  = 

CPAMAX  =  1 , 

-33.87 
401.035520 
,  0093 

439.2 

29.1'3 

04830  401 

92.13 
.  035580 

* 

YAWA(I ) 

P  A(  I ) 

PAC  < I  ) 

DPA 

YAWB(I) 

PB(  I ) 

PBC ( I > 

DPB 

1 

-40 . 060 

390.745 

390.620 

. 12415 

-39.850 

386. 023 

386.211 

-  .  1874*' 

rj 

C. 

-20 . 040 

418.046 
434 . 472 

413.693 

-.64673 

-19.750 

407.238 

406.601 

.63635 

3 

-.37000 

433.312 

1  ,  16040 

0  .  00000 

419.654 

420.214 

- .560 12 

4 

14.7100 

438.073 

438.307 

-.23431 

15.0200 

425.849 

426.014 

-.  16504 

5 

29.7000 

438.365 

439.171 

- . 80560 

29.7900 

427.988 

427.737 

. 25153 

6 

44.6600 

436.436 

436.487 

427.055 

-.05164 

45.0900 

425.091 

425.287 

- .  19550 

7 

64.9900 

428.007 

.95190 

65.3300 

416.069 

415.419 

. 64966 

8 

84.7900 

409.352 

409.953 

-.60059 

85.2400 

397.940 

398 . 495 

-  .55493 

9 

109.570 

372.605 

372.503 

.10175 

110.280 

367.713 

367.588 

. 12476 

B-PROBE  APPROXIMATION  RESULTS  :  YAW0  =  28.8  PRESSURE  (INCH  H20)  =427.75 


PSTATIC  (DERIVED  FROM  PAMAX  AND  XVEL)  =  402.086 


POS* 

1 


Beta 

08691 


Ganna 

.30020 


Xvel 

15784 


Pitch 

2.16 


Yaw 
28 . 77 


BETA2 

50.31 


Table  XII.  Explicit  Output  of  Reduced  Data  (run  #119) 
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Raw  Data  From  File  AB1901:27 


pos* 

Beta 

Gon«a 

Xvel 

Pitch 

Yaw 

BETA2 

t 

. 08691 

.30020 

.  15784 

2.16 

23.77 

50 . 31 

2 

. 08625 

.29869 

.  15719 

2.07 

28 . 85 

50 . 47 

3 

. 08659 

.29771 

. 15751 

2,04 

28 . 77 

50.39 

4 

.  08693 

.29870 

.  1578S 

2. 10 

28.67 

50.32 

5 

.  08626 

.29383 

.  15714 

1 .86 

28 , 34 

50.54 

6 

. 08556 

.29333 

. 15646 

i  .  81 

27.89 

50 . 78 

7 

.08761 

.29336 

.  15845 

1 , 89 

27 . 95 

50.27 

8 

. 08695 
.  08699 

.29314 

. 15780 

1 . 86 

37.77 

50.46 

9 

.30001 

. 15792 

2.16 

27.37 

50 . 42 

10 

. 08651 

.29053 

. 15735 

1 . 72 

23.18 

50.  SI 

li 

.  08616 

.30175 

. 15714 

2.20 

27.01 

50 .75 

12 

. 08771 

. 30S35 

. 15867 

2.41 

27.27 

50.32 

i3 

.  08736 

.31543 

. 15344 

2.83 

27.40 

50.38 

14 

. 08758 

. 31300 

. 15863 

2.74 

27.95 

50.24 

15 

. 08843 

.31647 

.  15949 

2.91 

27 . 52 

5  0.10 

16 

.  08708 

.32767 

.33026 

. 15832 

3.33 

27.13 

50 . 47 

17 

. 08815 

. 15937 

3 . 48 

27.70 

50 . 12 

18 

. 08751 

. 33647 

. 15883 

3.71 

27.75 

50.26 

19 

.  08845 

. 34354 

.  15981 

4 . 03 

27.49 

50 . 07 

20 

.  08694 
.  08777 

.35824 

. 15855 

4 . 57 

27.79 

50 . 37 

21 

.35549 

,  15931 

4.49 

28.23 

50.11 

E 

Mil 

:?I  m 

.  15888 
. 15890 

4.61 

4.76 

27 . 57 

28 . 06 

50.32 

50.85 

24 

. 08730 

.36500 

. 15898 

4.85 

28.23 

50 . 20 

25 

. 08809 

.35980 

.  15967 

4 . 67 

28.19 

50 . 03 

26 

.  08817 

.35931 

. 15973 
. 15935 

4.65 

27.69 

50 . 09 

27 

. 08765 

.36770 

4.97 

28.86 

50 . 03 

28 

.  08754 

.37437 

. 15933 
. 15876 

5.22 

28.31 

50 . 13 

29 

. 08721 

.35432 

4,42 

28.80 

50.16 

30 

. 08759 

. 36250 

. 15923 

4.76 

29.11 

50 . 02 

31 

.  08590 

.34610 

.  15741 

4 . 04 

29.45 

50 . 41 

32 

. 08591 

.33739 

, 15732 

3.71 

29.74 

50.33 

33 

. 08682 

.34274 

.  15825 

3.94 

28.54 

50.30 

34 

.  08629 

.33269 

. 15762 

3.51 

28.85 

50.40 

35 

. 08633 

. 33968 

. 15774 

3.80 

23.47 

50 . 44 

36 

. 08652 

. 33720 

. 15789 

3.70 

29.09 

50 ,31 

37 

.  08466 

. 32843 

.  15600 

3.27 

28.94 

50.81 

38 

.  08430 

.32945 

, 15566 

3.29 

28.62 

50 , 94 

39 

. 08466 

.31729 

.  15586 

2.80 

28 . 75 

50.85 

40 

.  08445 
. 08548 

.31319 

.15561 

2.62 

29.15 

50 .86 

41 

.31905 

.  15668 

2.91 

28.62 

50.66 

42 

. 08583 

.32284 

,  15706 

3.08 

27 . 38 

50 . 67 

43 

. 08569 

.31942 

.  15688 

2.93 

28.83 

50,58 

44 

. 08616 

.31527 

.32951 

,  15729 

2.78 

28.39 

50.53 

45 

.  08673 

.  15801 

3.39 

29 ,01 

50.28 

46 

.  08768 
.  08778 

.32712 

, 15888 

3.33 

28.90 

50 . 06 

47 

.32402 

.  15894 

3.21 

2.8 . 34 
29.03 

50 . 12 

48 

. 08757 

, 32691 

. 15878 

3,32 

50 . 07 
49.82 

49 

.  08892 

.31918 

. 15998 

3. 04 

28.51 

50 

. 08780 

.32379 

.  15897 

3.20 

28.24 

50 . 13 

51 

. 08746 

.32749 

. 15868 

3.34 

28.18 

50.22 

52 

.  08814 

.31063 

.  15914 

2.65 

28.43 

50 . 04 

Table  XIII.  Reduced  Data  For  the  First  Blade  Passage  of  Run  #119. 
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Figure  2.  Controlled  (Paced)  Sampling  Technique 


Figure  3a.  A-Probe  Pressure  (Gauge)  vs.  Yaw  Angle  YAW  ANGLE  [Degrees] 

Solid  line  -  Calibration  Data 

Dotted  line  -  Data  Approximated  from  Specific  Data  Points 
(4th  Order  Polynomials)  Shown  as  crosses 
(Datafile:  A5KP10) 


Figure  3b.  B-Probe  Pressure  (Gauge)  vs.  Yaw  Angle  YAW  ANGLE  [Degrees] 
Solid  line  -  Calibration  Data 

Dotted  line  -  Data  Approximated  from  Specific  Data  Points 
(4th  Order  Polynomials)  Shown  as  crosses 
(Datafile:  B5KP10) 


Figure  6b.  Free-Jet  Calibration  Appara 


Figure  6c.  Data  Acquisition  System 
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YAW  ANGLE  [Degrees] 

Figure  7.  Pressure  Readings  vs.  Yaw  Angle.  Data  Acquired 
Using  Two  Different  Programs: 

Solid  lines  -  Program  KALIB  (Continuous  Acquisition) 
Crosses  -  Program  &YAW  (Discrete  Readings) 


-80.-60.-40.-20.  0.  20.  40.  60.  80. 

YAW  ANGLE  [Degrees] 


Figure  13.  Type  A-Probe  Output  Demonstrating 
Characteristic  Values. 

(Mach  -  0.6,  Pitch  angle  *  25®) 
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i.  a 


Figure  15b, 


Approximation  of  Pitch  angle  v  as 
Function  of  Coefficients  5  and  y. 
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0.5 


0.4 


0.6 

Mach 


ified  Depending  on  Mach 
e . 
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AO- A  136  350 
UNCLASSIFIED 


FURTHER  DEVELOPMENT  OF  A  DUAL-PROBE  DIGITAL  SAMPLING 
< DPDS )  TECHNIQUE  F OR . . ( U )  BDM  CORP  MONTEREY  CA 
F  NEUHOFF  SEP  82  NPS-67-82-01CR  N00014-79C008B 

F/G  14/2 


XJ 


CP 


OA 


0.0  5.0  10.0  15.0  20.0 

Pitch  Angle  (Degrees) 


Figure  18.  Pressure  Coefficient  for  Type  A**Probe  at  Zero  Yaw 
Angle  as  Function  of  Mach  Number  and  Pitch  Angle. 
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Yaw  Angle 


i 


« 

u 

<a 

-o 


3 

u 

« 

o 

a 

4c 


O' 


3 


•* 


Paced  Data  From  Type  A  Probe.  Probe  Yaw  Angle  Settings  as  Indicated 


B-probe  raw  data 
Pile:  AB19B1 


ed  Data  from  Type  B-Probe. 

•be  Yaw  Angle  Settings  are  Indicated 


AB19B1 


Paced  Data  i.-om  Type  B-Probe 

Probe  Yaw  Angle  Settings  as  Indicated. 


f  I 

1  2  1.  I - 1 - 1  —  i - A - 1. - 1 - i - 1 - 1 - U  _i - 1 - 1 - 1 - 1 

0.00  64.00  128.00  192.00  256.00 


50.  _ _ feL__ 


Yaw  Angle 
(Degrees) 


!  A 


40.  _ 


30. 


Ju 


20.  L 

0. 


_» - i - A - A.  ..J - 1 - i - 1 - 1 - i - A-..1 - 1 _ 1 


64. 


128. 


192. 


256. 


12.  _ 

i 

Pitch  Angle 
(Degrees) 


0.  i _ U.-4.—1 _ 1. 

0.  64. 


.u _ L. 

128. 


192.  256. 

Circumferrential  position 


Figure  21 


Measurement  Results  at  50%  Speed.  Midspan,  Peak  Efficiency 
(File  AB19R1) . 


Figure  22.  Relative  Velocity  Distribution  W2  at  Rotor 
Trailing  Edge  (Schematic) 
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const 


U2  *  const. 


g  (x^  -  Xt^  +  tan  B2  x±  -  Xvt  sin  -  -  Xu£  +  tai  &2  Xvt  cos  a± 

xt  -  XvA  cos  Oj  XuA  »  Xut  »  Xu 

y  •  Xv  sin  (360°)  -  a.)  x  _ 5« _ 

*  1  1  i  tan  6,  cos  o.  +  sin  a. 

yt  ■  (-  Xv^  sin 

Figure  23.  Velocity  Triangles  for  Varying  Values  of  the 
Relative  Velocity  Xw  . 
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i 


.1 


'f 


Figure  24.  Dependence  of  Absolute  (xv)  and  Relative  (xw)  Velocities 
o:  yaw  A**  e  (a)  Assuming  constant  Values  of  Circum- 
ffc^  .-^t.  1  Velocity  (Xu“0. 24219)  and  Relative  Flow- 
Ang’-  (8.-50.3  9°). 


AiVGLF  (PEGREES) 
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APPENDIX  A 


CHANGES  MADE  TO  SOFTWARE.  FROM  (Ref.  4) 

The  changes  made  by  McCarville  and  reported  in  Ref.  4 
brought  about  two  general  improvements:  hardware  changes  which 
eliminated  the  need  for  an  operator-performed  lock-on  proce¬ 
dure  and  software  changes  which  allowed  the  acquisition  of 
one  sample  for  each  consecutive  revolution  instead  of  every 
tenth  or  eleventh  as  before.  In  the  process  of  integrating 
the  new  software  into  the  data  acquisition  program,  one  minor 
and  one  significant  error  was  found  in  the  subroutines  used  for 
acquiring  data  through  the  A/D  converter. 

The  data  is  transferred  from  the  A/D  converter  to  the 
21MX  computer  in  16-bit  words.  Only  the  highest  10  bits  contain 
the  digitized  voltage  while  the  A/D  channel  number  (0  through 
15)  is  transferred  in  the  lowest  4  bits.  Using  the  highest  bit 
for  the  sign,  the  range  of  numbers  which  can  be  transferred 
is  thus  ±(2^5-l)  or  ±32,767,  while  the  smallest  meaningful 
division  is  2^  or  64.  The  resolution  which  can  be  achieved 
therefore  is  ^j-g-  or  2-^0  or  0.0009  76  of  full  range.  Since 
the  full  range  of  the  A/D  is  -IV  to  +  1V,  the  instrument 
resolution  is  to  about  2  mV. 

The  procedure  of  masking  can  be  used  to  derive  an  exact 
digital  number  solely  from  the  highest  10  bits  of  the  transmitted 
word.  If  this  is  not  done,  the  A/D  channel  number  from  the 
low  bits  is  included  when  converting  the  data  word  to  a  decimal 
number.  The  result  is  to  create  decimal  numbers  whidi  appear 
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to  be  changing  with  a  resolution  of  2*  is  ±32,767  or  0.0305  mvs. 
Since  the  increase  in  program  running  time  due  to  masking  was 
insignificant,  this  procedure  was  built  into  the  data  acquisition 
program. 

The  second  error  was  found  while  using  the  data  acquisition 
program.  It  was  noted  that  a  different  number  of  samples 
acquired  from  the  same  machine  conditions  did  not  bring  any 
significant  change  in  the  smoothness  of  the  output.  An 
examination  of  the  output  of  5  individual  samples  (Table  A-I) 
and  the  average  derived  from  these  samples  showed  that  only 
the  first  sample  was  converted  from  an  integer  into  a  real 
number  and  that  the  same  real  number  resulted  for  each  individual 
sample  no  matter  what  was  the  value  of  the  integer. 

Figure  A-l  shows  the  listing  of  the  original  subroutine 
(RPACE)  from  McCarville  which  acquires  raw  data.  The  single 
samples  are  read  into  array  I3UFF(99)  correctly  (lines  #90 
and  #125) .  The  conversion  into  real  numbers  is  incorrect,  in 
that  only  the  first  value  of  the  array  IBUFF{99)  is  converted. 

Figure  A-2  shows  the  corrected  DO-loop. 

Table  A-II  shows  values  achieved  using  the  corrected 
subroutine.  It  cam  be  seen  that  changes  in  the  integer  numbers 
are  reflected  in  the  calculated  real  lumbers. 
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In  the  acquisition  program  discussed  herein  a  subroutine 
similar  to  the  one  of  Fig.  A-2  was  used. 
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Table  A-I.  Results  Using  Uncorrected  Subroutine 
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Figure  A-l.  Unchanged  Listing  of  Subroutine  RPACe  from 
Program  &  A2D  (P.  McCarville,  Ref.  4) 
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APPENDIX  B 


OUTPUT  CHARACTERISTICS  OF  TYPE  "A"  AND  TYPE  "B"  PROBES 

The  DPDS,  measurements  are  carried  out  using  two 
different  kinds  of  pressure  probes.  The  type  "A"  probe  is 

essentially  a  total  pressure  probe  (see  Fig.  4).  The  general 
behavior  of  such  a  probe  with  respect  to  angle  changes  has 
been  established  for  quite  some  time  (Ref.  10).  However, 
using  a  pneumatic  equivalent  probe  to  the  "A"  probe  the  out¬ 
put  of  the  probe  as  a  function  of  yaw  angle  was  established 
with  the  probe  mounted  in  the  steady  flow  of  a  freejet. 

Figure  B-l  shows  this  dependence.  The  characteristics  of 
this  curve  are  a  flat  top,  indicating  an  insensitivity  of  the 
probe  to  yaw  angle  changes  of  up  to  i20°  from  the  zero  yaw 
angle  position  ,  and  the  steep  but  almost  linear  parts  from 

-70°  to  -40°  and  +40°  to  +70°.  At  yaw  angles  of  -63°  and 

+63°  the  probe  reads  static  pressure  and  that  happens  inde¬ 
pendent  of  Mach  number  and  pitch  angle  as  long  as  the  pitch 
angle  does  not  exceed  a  range  of  -5°  to  about  +15  . 

Figure  9  shows  the  output  of  the  type  "A"  probe  for 
different  pitch  angle  settings  but  one  Mach  number  only.  It 
can  be  seen  that  pitch  angles  ranging  from  -15°  to  +25°  at  a 
5°  increment  produce  almost  identical  curves. 

Figure  1 2  shows  the  output  of  the  type  "B"  probe  for  the 

same  Mach  number  and  the  same  range  of  pitch  angle.  It 

can  be  seen  that,  compared  to  the  "A"  probe 
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probe  does  not  have  a  flat  top  for  a  range  of  measurement 
close  to  the  zero  yaw  angle  (zero  being  the  yaw  angle  where 
the  probe  is  aligned  with  the  flow) .  Instead  it  shows  a 
clear  and  well-defined  maximum  in  output  for  the  zero  yaw 
angle.  It  is  also  evident  that  the  output  depends  very  clearly 
on  the  pitch  angle.  The  yaw  angle  where  the  probe  reads  static 
pressure  is  different  for  different  pitch  angles  and  Mach 
numbers.  Different  Mach  numbers  always  show  only  one  curve  for 
the  "A"  probe  (independent  of  pitch  angle)  while  the  "B"  probe 
depends  on  changes  of  both  Mach  number  and  pitch  angle  . 


I  *  1—1 _ I - L-  1,1  I _ I _ I - 1 _ 1 - 1 - 1  I  40.0 

120  60  0  60  120  180 

.  Yaw  Angle  (  *  ] 

Indicated  Pressure  Versus  Yaw  Angle  for  a  pneumatic  Probe  Equivalent  to  a 
Type  A  Probe.  Dynamic  Head  =  32  "  H20.  Free  jet  Flow,  Zero  Degrees  Pitch  Angle. 


appendix  c 


DATA  ACQUISITION  PROGRAMS  &KALIB  AND  &YAW 

The  purpose  of  both  programs — &YAW  and  &KALIB — is  to  ac¬ 
quire  sufficient  data  for  the  calibration  of  either  the  type 
"A"  or  "B"  probe.  It  has  to  be  mentioned  here  that  only  one 
probe  can  be  mounted  in  the  center  of  the  free jet  at  a  time. 

It  is  therefore  essential  to  establish  identical  conditions 
for  the  calibration  of  both  probes. 

Since  the  data  reduction  as  outlined  in  4.1  requires  not 
only  the  knowledge  of  Mach  number  and  pitch  angle,  but  also 
the  probe  output  characteristic  as  a  function  of  yaw  angle, 
data  is  acquired  for  different  yaw  angle  settings.  Here  is 
the  major  difference  between  programs  &YAW  and  &KALIB.  While 
program  &YAW  requires  the  data  acquisition  at  one  specific 
yaw  angle  setting,  &KALIB  acquires  data  in  a  continuous  mode 
for  a  range  of  160°  (-80°  to  +80°)  in  yaw  angle. 

However,  program  &YAW  will  be  described  first,  since  it 
is  the  more  conventional  one. 

C-l.  PROGRAM  &YAW 

Since  parameters  have  to  be  changed  during  a  calibra¬ 
tion,  the  program  has  to  work  interactively  with  operator 
input.  For  each  selected  combination  of  Mach  number  and 
pitch  angle  data  can  be  recorded  for  up  to  31  probe  yaw  angle 
settings.  For  any  of  these  settings  the  values  of  total 
pressure,  Kulite  reference  pressure,  probe  yaw  angle  and  Kulite 
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pressure  reading  are  acquired  as  the  average  of  IQ  data 
samples  each.  The  pitch  angle  is  keyed  in  by  the  operator 
prior  to  the  measurement  and  the  total  temperature  and  the 
barometric  pressure  (static  pressure  since  it  is  a  freejet) 
are  measured  also.  When  the  data  for  one  yaw  angle  position 
is  taken  the  operator  is  asked  to  have  the  probe  moved  to 
another  yaw  angle  and  initialize  the  data  acquisition  process 
again. 

Once  the  data  for  all  31  yaw  positions  are  taken,  the 
operator  is  asked  to  key  in  a  file  name.  The  raw  data  from 
this  calibration  is  then  stored  in  a  file  with  the  name  pre¬ 
viously  assigned. 

In  the  next  step  absolute  values  for  the  total  tempera¬ 
ture  (degrees  Fahrenheit)  and  the  static  pressure  (inches  Hg) 
are  calculated.  File  name,  pitch  angle,  total  temperature  and 
static  pressure  are  written  on  the  line  printer.  The  follow¬ 
ing  DO-loop  derives  absolute  values  of  the  impact  pressure 
(inches  of  water) ,  the  Kulite  reference  pressure  (inches  of 
water) ,  the  probe  yaw  angle  (degrees) ,  and  the  Kulite  pressure 
output  (inches  of  water)  as  a  gage  pressure.  From  these  values 
a  pressure  coefficient  c^  defined  as 

PK  +  pref  '  ps 

cp - Ft  ~ — 

where  pR  =  Kulite  pressure 

Pref  =  Kulite  reference  pressure 
pt  *  total  pressure 
ps  =  static  pressure 
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is  derived.  All  of  these  values  are  tabulated. 


A  plot  of  c 


P 


vs  yaw  angle  is  produced  automatically 


with  the  operator's  choice  of  drawing  a  full  grid  or  just  the 


calibration  result. 


After  this  the  program  can  either  be  stopped  or  started 

again  for  a  different  flow  condition. 

C-l  gives  a  flow  chart,  while  C-2  is  a  program  listing. 

Externals:  ABRT,  CLEAR,  CLOSE,  CPLOT,  CREAT,  DRAW,  FXD , 

LABEL,  LDIR,  LOCL,  MOVE,  OPEN,  PLOTR,  RMOTE , 
SCANR,  SETAR,  V1EWP,  WINDW,  WRITF 


Description 

Array  containing  pressure  coefficients 

Array  containing  complete  raw  calibration 
data 

Cartridge  reference  number 

Data  control  block 

Array  containing  file  name 

Graphic  data  control  block 

Total  number  of  words  to  be  stored  in  raw 
data  file  (two  words  for  one  data  value) 

Security  code 

Array  to  specify  file  dimensions  (1st 
word  for  number  of  records,  2nd  for  record 
length) 

Type  of  data  file 


Variables 

Type 

CDATA (32) 

Real 

DATA (32, 4) 

Real 

ICR 

Integer 

IDCB (144) 

Integer 

IFILE  (3) 

Integer 

IGCB (192) 

Integer 

IL 

Integer 

ISECU 

Integer 

ISIZE (2) 

Integer 

ITYPE 

Integer 

S 

T 

u 

Real 

V 

w 

X 

Y 

Real 

Z 

Sample  readings  of 


Average  values  of 


total  pressure 
Kulite  ref.  pressure 
probe  yaw  angle 
Kulite  output 

total  pressure 
Kulite  ref.  pressure 
probe  yaw  angle 
Kulite  output 
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C-2 .  PROGRAM  &KALIB 


As  stated  earlier  this  program  records  probe  data  for 
more  yaw  positions  than  program  &YAW.  Once  either  the  "A"  or 
the  "B"  probe  is  mounted  on  the  free jet  and  the  desired  flow 
condition  (Mach  number  and  pitch  angle)  is  established,  the 
actual  pitch  angle  is  keyed  in,  and  single  measurements  of 
total  temperature  and  pressure  as  well  as  Kulite  reference 
pressure  and  barometric  pressure  are  taken.  The  operator  is 
then  asked  to  start  the  data  acquisition  process  for  the  Kulite 
pressure/yaw  angle  measurement.  Simultaneously  the  operator 
has  to  signal  that  the  probe  shall  be  rotated  in  the  freejet. 
While  the  probe  is  rotated  from  -80°  to  +80°  in  yaw  at  a  con¬ 
stant  rate  of  ~3°/sec,  the  yaw  position  and  the  corresponding 
Kulite  pressure  reading  is  recorded  alternating ly .  when  the 
whole  range  of  yaw  angle  is  finished,  the  flow  conditions  are 
recorded  again  and  the  probe  is  rotated  backwards  160°  with 
the  same  data  acquisition  process  as  before.  Then  the  jet 
conditions  are  recorded  a  third  time.  All  raw  data  is  multi¬ 
plied  by  its  corresponding  scaling  factor.  The  total  tempera¬ 
ture  is  calculated  in  degrees  Fahrenheit.  A  pressure  coefficient 
as  defined  in  C-l  is  derived  for  all  300  points  of  measure¬ 
ment.  The  whole  data  array  (contents  are  defined  in  the  listing) 
is  stored  in  one  file  with  its  name  as  operator  input.  A 
complete  output  of  the  file  contents  is  printed.  (Note: 
line  printer  must  be  set  to  "comp".) 


Ill 


The  operator  is  then  asked  to  specify  the  form  of  a 


plot  of  the  just-acquired  data.  When  the  plot  is  completed 
the  operator  has  the  choice  of  stopping  the  program  or  per¬ 
forming  another  data  acquisition  for  a  different  flow  condition, 


C-3  gives  a  flow  chart  of  &KALIB  while  C-4  is  a  program 


listing. 

Externals : 

ABRT ,  CLEAR,  CLOSE,  CPLOT,  CREAT,  DRAW,  FXD , 

LABEL,  LDIR,  LOCL,  MOVE,  OPEN,  PLOTR,  RMOTE, 

SCANR ,  SETAR,  VIEWP ,  WINDW,  WRITF 

Variables 

Typ.e 

Description 

CDAT A (300) 

Real 

Array  containing  pressure  coefficients 
c 

T~\ 

DATA(2, 320) 

Real 

P 

Array  containing  complete  raw  calibration 
data 

ICR 

Integer 

Cartridge  reference  number 

IDCB (144) 

Integer 

Data  control  block 

IFILE (3) 

Integer 

Array  containing  file  name 

IGCB (192) 

Integer 

Graphic  data  control  block 

IL 

Integer 

Total  number  of  words  to  be  stored 
in  raw  data  file  (two  words  for  one 
data  value) 

ISECU 

Integer 

Security  code 

ISIZE ( 2) 

Integer 

Array  to  specify  file  dimensions  (1st 
word  for  number  of  records,  2nd  for 
record  length) 

ITYPE 

Integer 

Type  of  data  file 

By  comparison  of  sets  of  data  acquired  with  both  pro¬ 
grams  for  the  same  flow  conditions,  no  difference  was  found 
between  the  results  of  the  two  programs. 
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Since  program  &KALIB  offers  much  more  overall  informa¬ 
tion  in  even  shorter  time,  it  was  used  for  the  whole  calibra¬ 
tion  of  both  probes  with  occasional  comparisons  between  the 
two  program  results.  Plots  of  the  probe  outputs  vs  yaw  angle 
were  produced  and  stored  for  each  of  the  conditions  to  have  an 
easy  and  clear  idea  of  the  probe's  general  behavior. 
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Figure  C- 


.  Flow  Chert  of  Data  Acqusition  Program  &  Yaw 
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T-00004  IS  ON  CR00026  USING  0002S  BLKS  R-I0I0 
FTM4,L 

PROGRAM  YAW 

REAL  DATA* 32,4 >  .CDATAC 32 > 

DIMENSION  TCCS<  1 91/)  .  1pl&<  144)  ,  IFILE<3> ,  XSIZE<2> 
DATA  IDCBS  /t44/ 

DATA  ISECU  /0/ 

DATA  ICR  /29/ 

DATA  ITYPE  /l/ 

OATA  XSI2E  /2. 129/ 

DATA  IL  /2$6/ 


PROGRAM  TO  ACQUIRE  DATA  FOR  THE  CAUSATION  OF  A  KUHTE  PNOBF 

this  program  takes  data  at  defined  tan  positions. 

ONLY  THE  RAW  DATA  IS  STORED . 


131  FORMAT 

102  FQPflAT 

103  FORMAT* 

104  FORMAT < 

9«  Oii«- 

105  FORMAT 

•  '  ’) 

106  FORMAT ( 

i  87  Volt  nir 

If.  KEY 
149  FORMAT 
671  FORMAT 
1 02  FORMAT 

ta3  format 

*p  •//> 

fcj4  FORMAT 
801  FORMAT  ( 

1001  F QRMAT  < 

1002  FORMAT < 
till  FORMAT ( 

1301  FORMAT  < 

1302  FORMAT < 

1303  FORMAT ( 
1S01  FORMAT ( 


<•  READ  PXTCHANCLE  FROM  TERMINAL •■> 

* 1  WHEN  YOU  ARE  READY  FOR  THE  “14*.  MEASUREMENT.  HIT  CR  »*i 

*  Pt  tunnc  1*  "F0.6-  P  r<f .  *  -F8.6*  Prob*  pot  *  *F  tt  4  *vti' 
-F8 .6) 

v  -  ENTER  the  FILE  NAME  YOU  WANT  THE  RAU  DATA  TO  BE  ‘i'OfctD  I 

•  !F  YOU  NEED  A  COMPLETE  NEW  FRAME,  KEY  tE  »*/•  ANY  OTHER  V 

(  •  !F  YOU  WANT  ANOTHER  SET  OF  DATA  FOR  A  D IFFRENT  PITCH  ANG 
YES-/*  ANYTHING  ELSE,  IF  NOT ■ - ) 

<<3*  n  > 

<*  H--~  •'YTA  ARE  STORED  IN  FILE  •lX,3A2/> 

<•  Pit„.i  •‘*14*  Tunnel  Te«p .  *“F8  . 2  r  baro**FB  S//) 

<•  •  YAW  f.  u  1  i  T  c  ant  P  r«f.  Pt  t  ynn*  1*16/ '  C 

tI4.lX,F7.3,3< IX,F12  & > ,bX ,F 12 . 6 > 

•CA*> 

“FlR7M3AtH0T3-> 

-FIR7M3A0H0T3-) 

-  t  -MS'IERR  *  *  IS . F  » 2 . 4) 

•8-PROBE  PITCH  «*,I4,10X*P  PAR0  *"F7.3) 

•TUNNEL  TEMPERATURE*"??  3,2X"FIlE  :  *:iA2> 

-  cp-> 

•CA*> 


DATA  LOCATION  IN  THE  DATA  FILE  ; 

>OR  I  *  1  TO  31.  I  IS  the  NUMBER  OF  THE  YAW  ANGLE. 

.FOR  EACH  OF  THE^E  YAW  ANGIES  THE  ARRAY  CONTAINS  THE  FOLI  OWING 
VALUES  IN  THE  GIVEN  ORDER: 


.#  1  PT  tynnil 

*  2 


P  ref.  K  u  1 1 1  •  Probe  position  Kulit*  pre  .<■». 


SATA<32,1>  contain*  oirchangle 
ATA<32f2)  contain*  T •  runnal 
,0ATAi32,3)  contain*  P  baro 


input  fron  terminal 
r# ad  from  *car»r  #2  ch  t> 
r* ad  fro*  *canr  #1  cn 


CALL  ABR  T  <  7 , 2 ) 
CALL  RMOTE <  8) 
CALL  RmOTE(IO) 
CALL  RMOIt  < IS ) 
WRITE  <8801 ) 
WRITE  <1 6,1001) 
WRITE  < IS, ISO  1 ) 


PRESET  DATA  ARRAY  WITH  0.0  \ 


•  1,32,1 


Figure  C-2. 


Listing  of  Calibration  Data  Acquisition  Program  S.YAW, 
(Continued  on  next  page.) 


■?6 
•l  77 
'178 
•»  ✓  ? 
too 
MU 

»  04 
1  II  j 
1  06 
i  M 
’08 
i  07 
\  Ml 

m 

:  l  ( 
s  1  4 
1  lb 

'.  t  6 
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•  l«t 
»  19 

-  .0 

•  Jl 

!?! 

I.*1 4 
M’S 
•.:** 
?7 
?8 
»;j9 
iO 

‘Ji 

a 

■  is 

17 
\  '8 
.  ’.? 

40 

It 

»  42 

4J 
>  44 
4S 

{» 

48 

149 

SO 

1? 

‘"4 

'  'iS 

.rj* 

1  ^7 

*8 


008 


010  tut 


020 


DO  108  J 
S 

3 

T 
X 
U 

Y 

V 
Z 

DATA* 1,1> 

KWi# 

Wr«|[  »i  - 


4CaM*  US, 21, 01) 

u  ♦  s 

SCAN!)  (IS, 21, 01) 

X  ♦  T 

SCANR  ( IS, 22, 01) 

T  ♦  U 

SCANR(IS,23,01> 

Z  ♦  v 

w/io 

V/tt 

2/10 

(DATA(I.J) ,J-  1,4,1) 


W«  *  n  U,IV1) 

HEAD  (1.1491  JF1LE 
CALL  CHEAT  (  XDCB ,  IE1 


S' 


00 ,XFILE,ISXZE,ITTRE, 1BECU, ICR , 1DC0S) 


IF  KERR  LI.  0  >  URJTEtl  .1111)  JJ.IErr 

CALL  |f>EN  (IDC»,I£RR,IFICe,IOFTN,iSECU,ICR,IDCRS) 

IF  UERR  LT,  0  )  URIT£(1 .till)  JJ.IERR 
CALL  WRITE  < ifiCO, ZERR, DATA, XL > 

JJ  •  3 


TEH  ,1111 )  JJ.IERR 


IF  UERR  .LT.  0  ) 

CALL  CLOSE  (IDCB.l 

JJ  *  4 

IF  UERR  .LT.  5  )  WRITE  U.tlll)  JJ.IERR 
DATA  1 32,2)  -  32.4149  ♦  347??. 9  «  MtAi32,2> 

DAT  A( 32 , 3 )  -  DATA<32,3)  *  10000 
MR  I TE  <  4,401 )  1FILE 

UR ITE( 4, 402 )DATA(33, t  > ,DATA( 32,2) ,DATA(32 ,3) 

UR  I TE( 4,403) 

SO  030  I  -  1.31.1 
DATAU,1)  ■  dAtaII.I)  *  10000 
DATA! 1*1)  •  DAT  A(I , 1 )  «  10 
DATA! 1,2)  •  DATA!  I  ,  2)  *  10000 
DA T A (I , 3 >  -  DATA! 1,3)  *  10100 
BATA<l’4)  *  D*T*iI.*>  *  JOOOO 

CDATA(f)  *  (  DAT  At  I , 4 )  ♦  DAT  A ( I , 2 ) )  /  DATA! 1,1) 

WRITE (6,604)  1 , DATA( 1,3), DAT  A( 1,4) , DATA( 1 ,2) ,DATA< 1,1) , COAT At  1 > 

EStt  \W' 

CAIL  FLCrw  <  ICCB.2 ,1  ,13) 

CALL  SEAR  <ICCS,1.S} 

Ball  «  i  i^l',^0 1  ^ 41.  *?T. 

CALL  FXD  (ICCO.l) 

URI TE( 1 , 104) 

READ  (1,149)  I  D(J  A 

IF  < IDUM . EQ . 2HTE )  CALL  LCRID  (ICCO,-S. 

CALL  HOVE  ( I GCB , DATA ( 1,3), CDATA(  1 ) ) 

DO  040  1*1.31.1 

CALL  DRAU  <IGCo.DATA(1.3>.CDATA(I)> 

£Stt  wuJ5dwS  ,®:8::lli::o6::li«:} 

CALL  MOVE  ( ICCB.22. ' IS. > 

att 


,0.5, 0.0, 0.0, 4. 0,1. 0,1.0) 


Figure  C-2. 


Listing  of  Calibration  Data  Acquisition  Program  &YAW. 
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.  Flow  Chart  of  Data  Acquisition  Program 
&  KALIB 


">t  I»  T»0##»4  IS  ON  C*«t«2A  USING  IB  042  BLXS  *>0000 


MJ 

!M 

HAS 

U6 

'i  0  7 
MU 
M? 
it® 

II 

T14 

•MS 

.16 

U7 

118 

19 

•J  J  i) 

I'M 
•  '? 
»as 

?4 

••-"i 
•;*6 
■  2 7 
»  H 
«..?/ 
'0 

..*$ 

34 

i  V» 
i  16 

i  <7 

Vi 
«  '7 
4U 
41 
-4..' 
I*U 
» 44 

MS 

•  V, 
147 

•  40 

•  9 
tvj 

*r.J 

>  >4 


F  TN4 ,L 


PROGRAM  KALI® 

REAL  OATA<2.J20 >  , CDaTA! 30® ) 

DIMENSION  Tftclt 1*2) , 1DCB v 144 ) ,  IF  ILE !  3  ) , ISIZE! 2  > 
DATA  1DCBS  / 1 44/ 

DATA  ISFCU  /•/ 

DATA  ICR  727/ 

DATA  I T  f  PE  /t/ 

DATA  ISIZE  /I®. 128/ 

DATA  IL  / 1280/ 


PROGRAM  TO  ACQUIRE  DATA  FOR  THE  CALIBRATION  OF  A  KULITE  PROBE. 


101  f  (JRHAT  <  “  RF  AD  PITCNANGLE  FROM  TERMINAL  :  *  ) 

102  FORMAT  (  -HHr.N  YOU  ABE  READY  f  OR  THE  MEASUREMENT,  HIT  CR  1  "  1 

1 03  F  OR HA  T  <  -FIRST  RANGE  COMPLETED'-) 

1 U 4  FORMAT C  WHEN  YOU  ARC  READY  TO  HOVE  THE  PROBE  BACKWARDS , KEY  CR ' - ) 
JOS  FORMAT!-  ENTER  THE  FILE  NAn£  YQU  WANT  THE  RAU  DATA  TO  BE  STORED  IN 

4  ;  -  ) 

10*  FORMAT!-  IF  YQU  NEED  A  COMPLETE  NEW  FRAME,  KEY  YE  ■  V*  ANY  OTHER  K 
«EY. IF  NOT  » " > 

107  FORMAT!-  IF  YOU  WANT  ANOTHER  SET  OF  DATA  FOR  A  DIFFRENT  PITCH  ANCL 
•C.  KEY  YES-/  "  ANYTHING  ELSE, IF  NOT • * > 

149  FORMAT! (3A2> ) 

t»01  V  URMAT  (  -  RAU  DATA  ARE  STORED  IN  FILE  :  •  1  X  .  3A2 . 1SX “P I  TCH  *  -14/) 

*02  FORMAT C-  TUNNEL  TEMP.  DEC.  F  TUNNEL  PRESS.  INCHES  M20  K  R 

«EF  PRESS.  INCHES  H20  P  BARG  INCHES  MG*) 

*01  FORMAT <4<7X,F|9.7), 5 X "BEFORE  READINGS-/) 

604  F0RMAT(4(7K,F\9.7) .SX-BETUEEN  READINGS-/) 

605  F0RMAT(4<7X,F19.7) .3X-AFTER  READINGS-/) 

606  FORMAT<4(7X,rt9.?> , SX "AVERAGE  VALUES-/) 

607  F URMAT ( “  4  YAUANG  KULITEOUT  CP  •  YAUANG  KUL1TEQUT  CP  4 

•YAUANG  KULITEOUT  CP  0  YAUANG  KULITEOUT  CP  •  YAUANG  KULIT 
•FOUT  CP-) 

608  FORMAT ( 1 3 . IX ,F6 . 3 ,2X , FQ . S , l X , FS . 3 , 4<I 4 , IX ,F6 . 3 , 2X ,F8 . S , IX ,FS . 3 ) ) 

609  F  OR MAT  < IhI ) 

801  F  ORMAT ! "CA" 1 

001  FORMAM  -FIR7M3A1H0T3"> 

002  FORMAT! -F1R7M3AOHOT3-) 


111  FORMAT  <  "  4  --IS-IERR  »  *IS,F12.4) 

301  FORMAT ( "B- PROBE  PITCH  «"t4  1X"P  BARO  » -F7 . 3 . IX'FILE  -"3A. 

302  F ORMA T ( "TUNNEL  TEMP ERATURE« 'F7 . 3 "  TUNNEL  PRE$S . - -F7 . 3 > 
i 03  FORMAT!  "KULITE  OUTPUT  !  INCHES  H20>*> 

SOI  FORMAT ( MCA"  I 


2) 


DATA  LOCATION  IN  THE  DATA  FILE  : 

LOCATION  IN  FILE  : 

FOR  I  =  1  TO  300  DATA(l,I) 

FOR  I  *  l  TO  300  DA T A <  2 , l ) 

LOCATION  IN  FILE:  CONTAINS: 


CONTAINS  i 

YAU  POSITION 

KULITE  PRESS.  OUTPUT 

READ  FROM: 


t'-.7 

C 

DATA. 1 .30* ) 

T  total 

tonne  1 

Ch4  6 

Scanr . 4 

•  Vi 

C 

. DATA<2,30t ) 

P  Total 

t  unncl 

Ch*20 

Scanr  * 

V  V 

c 

DATA( l ' J02) 

K  ref  . 

press . 

Ch42l 

Scanr  4 

'>0 

r. 

. 0ATA ( 2 ,302  > 

Bar  on . 

press  . 

Cht2S 

Scanr  .  4 

,i,2 

r. 

. DATA! 1 , 303) 

T  total 

t  vnnt l 

Ch4  6 

Scanr  .  4 

-*  5 

c 

. DA  T  A ! 2 , 30  3) 

P  total 

tonne  1 

Ch420 

Scanr  » 

'.4 

c 

.DATA! 1 ,304) 

K  ref 

press  . 

Ch421 

Scanr  .  4 

■  *s 

c 

. DAT  A ( 2 , 3  U  4 ) 

B<ir  on . 

press . 

Ch  42S 

Scanr , • 

16  6 

c 

•*  A 

c 

DATA! 1,30s) 

T  total 

tunne 1 

Ch4  6 

Scanr . 4 

» 6  8 

c 

. DA  TA! 2 , 30S ) 

P  total 

tunnel 

Ch  420 

Scanr . t 

■»*? 

c 

DATA! i , 306) 

K  rtf. 

press . 

Ch  421 

Scanr  ♦ 

.70 

'1 

v/i 

c 

c 

£ 

. DATA<2 ,306) 

BaroM. 

press . 

Ch«2S 

Scanr  .  4 

I  total 
P  total 

f onnel 
t  onnel 

0  X 

1  ru  3  i 

.74 

r. 

. DATA! 1 , 319) 

K  ref  . 

press . 

F  r 

on  t 

•  7S 

c 

DATA! 2,319) 

Bnrom. 

press . 

r  e 

a  d  i  n 

1  7  * 

c 

‘77 

c 

. DAT  A<  1 , 320 ) 

Pitch  angle 

Terminal 

b  c  f  t  r  « 

r  «  a  4  i  n  q 


b  «  t  w 

r  «  q  d 


a  n  o 


q  %  above 


Figure  C-4. 
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H7? 

»8f 

■mi 

.82 

•i  6  J 

184 

ons 

nn* 

TH7 
IRQ 
'i89 
171 » 
M  Vi 
IV? 
«V3 
I'M 
19S 
•-V6 
‘177 
•  /8 
079 
i  ')0 
101 
1 ll? 
103 
134 

tos 
1  06 
1  07 
1  08 
10? 
1  1  0 
t  11 
112 

113 

114 
i  15 
'  16 
1  17 
1  18 
119 
>?0 
1.*1 
1  ^2 

23 

124 

75 

W 

128 
•  7 

m 
1  12 
l  51 
1  14 
i  15 
l  16 
i  17 
1  10 
1  5? 
'  40 
1  41 
1  42 
»  4  3 
1  44 
5  45 
146 
»  47 
1  4Q 
1  4? 
150 

1 31 
152 
15  J 
i  54 
» 55 

156 

157 
1  SB 


001 


jjttt  IBttMi 

call  RhQIIUO) 
CALL 


RndtE <il> 


002 


005 


010 


015 


018 


019 

020 


021 


am  «•!!»»!> 

MITE  <15,1501) 


DO  102  I  •  1,320,1 
DATA< 1 , X  >  «  0.0 
DA r A<2 , 1 )  •  0.0 
URIFE<1,101) 

READ  <1,  1)  DATA! 1 , 320 ) 

DArA<l,30l)  •  SCAN* (15,06,01) 

DATA( 2 , 301 )  *  * - - -  "*  * 

. \ ,302 


•  SC ANR  <15,20,01) 
DA TA< 1,302)  •  SC AMR ( tS,2i ! Ol  ) 
DATA<  2 , 302 )  -  SCAMR  <  08 , 2S , 0 1 ) 
MR l TE  < i 0 , 1 002) 

MR  ETE< 1 , 102 ) 

READ  <1,14?)  IDUM 

IF  <  IDUM  .NE.2H  )  GOTO  005 

DO  010  I  *  1.150, l 

BIttl-.H  :  l8SS«‘ii;55;«V> 

DATA( 1 ,303)  •  SCAN? < 15,66,01 ) 
DATA< 2, 303)  •  SCAMR < IS  20  0 1 ) 
DATA< 1,304)  «  SCAMR <15, 21, 01) 
OATA<2'304)  •  SCAMR < 082S0 1 ) 
UR  1TE <1,103) 

UR  I  TE  < 1,104) 

REA0<1.149>  IDUM 

IF  <  I DUM  .ME.  2M  )  GOTO  015 

DO  018  I  •  151,300,1 

DAT All, I)  «  SCAnR (15,22,01) 

DATA<  2, 1  )  -  SCAMR <15,  23,01) 

BSfS Mi!  :  i88SiiHV.tr> 

DA TA< 1 , 306 )  -  SCAMR<lS,2i ,01) 
DAT  A<  2,306)  *  SCANS < 08, 25, 9 1 ) 
CALL  C£c£R<(5$l) 

Ck  tefe !  <«« 

32.6149  ♦  3.47279 
DATA<2,I)  *  “ 


CALL  IOCL 
DO  01?  I 

F&'l 

Dor*<i,i> 
o«r»<2,i)  - 

DA  T  A  < 1 ,218)  •  (DATA! 

DAT A ( 2,318)  -  - - 

DATA! 1 ,31?) 

DA  I A  0,31?) 

DO  021  I  - 


«  DATA! I, I) 


.  *  10 

DAT*(1 ,301). DATA! 1,303). DATA! l,305>>/3 
<DATA(2;301 |.DATA(2,303>.DATA(2,30S>  >/3 
(DATAtt ,303 )*DATA( 1,304 )* DATA! 1,306) >/3 
< DATA <2, 302). DATA! 2, 304) *DATA( 2, 306 ) >/3 
DO  021  I  •  1.300.1 

CDATA1D*  (  DATa(2,  I  )»DATA(  1 ,31?)  )  /DATA(2,318) 

WHITE (1,1  OS) 

READ  < 1,14?)  IFILE 

^ALU  CHEAT  ( IDCB, IEHH, IFILE, I  SIZE, ITYPE.ISECU, ICR, IDCBS) 

IF  (IEHH  ,LT.  0  )  UK ITE ( 1,1111)  JJ.IERR 

^ALL  OPEN  <IDC»,IERR, IFILE, IOPTN,tSECU, ICR, IDC8S) 

Kti,Rw-iioi»,fIisi:«t*uti>  ”-ie” 

IJ  •  4 


(IEHH  ,LT .  0  )  WHITE  <t .11 
!f(6, AOj)  IFILE, DATAU.JSo 


IF 

MR  1 1  _ 

Ui I TE  <  6 1 60? ) 
MR  I  Tf 
MR  IT 


ID  JJ , XERR 

) 


I  <£,603)  DATA< 1,301) , DATA<2,301) ,DATA<t,302) , DATA<  2 , 302) 
E  (6,604)  DATA<1,J03),DATA(2,3O3) , DATA< 1,304) jOATA< 21304) 


Figure  C-4. 
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WRITE  (6,605)  DATA<1 ,305)  ,DATA<2,30S>  ,DATAU,3Q6>  ,DATA<2,306> 

WRITE  (6  606)  DATA<  1  !h8> ,  DATA<S;3l8>  DATA<  1 ,3l?>  JDATA^SI?) 

WR I TE ( 6 , £o7 ) 

DO  030  T  *1.60,1 
;  *  4  ♦  60 

II  -  J  ♦  60 

JJ  »  11+  60 

III  *  JJ*  60 

0.10  WR  ITE  <  6,600)  I  .DATA  t  i  .  1 > .DAT A< 2 . 1 ) .CDATA< I >  ,  J  ,DATA(  1  .  J)  .DATA!  2  ,  J  >  ,C 
»DATA<i) .lI.DAtA( 1 . II J .DATA(2. It ) . 6dATA< I 1 ) J J J  DA T A< i , J* ) , DATAt 2 , } J 
») , CD AT  A < JJ),IXI,DATA(1,1XI), 6ATA ( 2 ,111) , COAT A( III) 

W?ITE(6 .60?) 

CALL  Pt6TR  < 1GCB,2 , 1.13) 

CAt  L  SETAR  ( ICCB, 1  ,S> 

CALL  VIEWP  (ICCB, 50.  ,110.  ,20.  .68.0) 

CALL  W I NDW  ( ICCB, -90; ,80. ,-160.00,160. 0) 

CALL  T *D  ( IGCB.l ) 

WR  ITE<  l  ,106) 

READ  (1,149)  IDUrt 

IFUDUH  E0.2HTE)  CALLLGRID  ( ICCB  .-5.  ,10. ,0.0, 0.0, 4. 0,2. 0,1.0) 
CALL  HOVE  ( ICCB. DAT A< 1,1), DAT A< 2,1)) 

DO  040  1*1.300.1 

040  CALL  DRAW  ( IGCP  .DATA< •  I ) , DATA<2 , 1 > > 

IE  (  IDUrt  .NE.  2M‘ffc>  GOTfi  0$0 
CALL  VtEUP  (1GCB.0. ,150.  ,0 .  ,100.  > 

CALL  WINDU  (IGCB.O. ,150. ,0.  100.) 

CALL  HOVE  ( I GCB , c2 . . 1 5 . ) 

CALL  CPLO  T (  I  GCB .  -9 . , d . , 0  ) 

CALL  LAPEL  ( IGC6) 

WRITEt 1 3 .1301 ) DATA ( 1,320) ,DATA<2,3i?) , IFILE 
CALL  HOVe  < ICCB, 22. ,10. > 

CAILCPIOT  (IGCB.-0. ,0. ,0 . ) 

CALL  LAPEL  ( IGCP) 

WRITE  <13,1302)  DATA< 1 .318) ,DATA<2 ,318) 

CAIL  HOVE  < ICCB, 18. 3 .50 . ) 

CALL  CPLOT  (IGCB.-e.  .6. ,0 .0) 

CALL  LOIR  <  IGCB.M  .$7)' 

CALL  LABEL  <IGC8) 

WRITE  (13,1303) 

350  CONTINUE 

WR ITE< 1 . 1U7) 

REA0< 1.149)  IDUH 

IF  < IDUH  .EQ.  2HYE  >  GOTO  1 

fTgP  7777 

REAL  FUNCTION  SCANR  <LU, ICHAN,* > 


Close  r « lay  ICHAN  on  iconntr  LU  and  read  the  in»tro««nt 
md  ica*ed  by  x . 

Author:  Robert  N.  Geopfarth 

Date:  February  31.  197? 

Detailed  program  description  is  available  in  TxCO  loqj 
war i ab lea  are . 

LU  ...  LUO  of  desired  scanner  <8  or  15). 

ICHAN  ...  Scanner  channel  (integer). 

IC  ...  Scanner  cnannel  (ASCI*). 

K  ...  Instrument  code  <  DVH  *  1  /  Counter  ■  2  ). 


«.  Closes  scanner  and  reads  DVH ,  counter. 
Iflt  FORHAT  (A2) 

TO  1  TOR  NAT  CC") 

001  FOR HAT  (  ”  T 3 T 3 " ) 

?01  FORHAT  (-T-) 

>01  FORHAT  <-C") 

WRITE  <  8,  801) 

WRITE  (15  1501) 

IC  *  ICON* ICHAN , 0 ) 

WRITE  (LU,  1 0 1 >  IC 
GO  TO  <01 ,02)  K 

01  CALL  TR ICR  <10) 

READ  <10.  *>  DUH 

CALL  TRIG*  <10) 

READ  <10,  *)  SCANR 

CO  TO  03 


Figure  C-4. 
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0239 

0240 

0241 

02 

WHITE  (12,1201) 

READ  (12,  •)  SCANR 

MM 

03 

WRITE  <I-U,  BOD 
return 

0244 

END 

0245 

INTEGER  FUNCTION  IC0N(l,N) 

0246 

IODN 

0247 

02«8 

Mi"’ co  10 100 

0249 

UR  1 TE l ICON , 60 ) 1C 

0250 

60 

FCIRN*T<  12) 

0251 

RETURN 

0252 

too 

lCtlN>(030060B 

0251 

RETURN 

0254 

END 

Figure  04. 
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APPENDIX  D 


DATA  REDUCTION  PROGRAMS  &REST8  AND  S.REST9 

The  programs  &REST8  and  &REST9  are  in  principal  the  same 
and  follow  the  same  logic.  They  are  used  to  approximate  the 
Mach  number — or  X  — and  the  pitch  angle,  <t> ,  as  functions  of 
the  two  independent  variables  8  and  y  (see  4.5).  The  soft¬ 
ware  used  to  work  out  the  approximations  is  described  ex¬ 
plicitly  in  Ref.  6.  Basis  for  the  approximation  is  the  data 
as  shown  in  Table  V.  This  data  is  stored  as  a  10  by  54  array 
in  a  data  file  ABNEW2  on  cartridge  26.  The  data  is  read 
into  a  10  by  54  array  from  file  ABNEW2  by  both  programs. 

Since  the  approximation  itself  is  carried  out  in  external 
subroutines,  the  necessary  variables  are  contained  in  a 
common  block.  &REST8  thus  contains  3  (BETA) ,  y  (GAMMA) 
and  X  (XVEL)  while  &REST9  contains  2  (BETA) ,  y  (GAMMA)  and 
PHI  (pitch  angle  in  radians) .  As  approximations  of  differ¬ 
ent  order  are  possible  for  both  variables  3  and  y,  the  orders 
of  the  approximations  are  increased  from  one  to  six  in  a 
DO-loop  for  both  variables,  resulting  in  a  total  of  36 
combinations . 

For  all  combinations  the  set  of  coefficients  is  printed 
out  and  also  an  array  (6,9)  for  all  errors  (see  4.5)  re¬ 
sulting  from  this  particular  approximation.  When  the  whole 
DO-loop  is  worked  out,  the  operator  has  to  decide  what  order 
of  approximation  he  wants  to  use  for  the  application  of  the 


probes.  In  general  lower  order  polynomials  should  be  pre¬ 
ferred  against  higher  ones,  although  the  latter  promise  the 
smaller  overall  error.  The  criterion  for  the  decision  should 
be  the  error  distribution  within  a  range  of  Mach  number  and 
pitch  angle  which  will  be  the  one  of  the  most  common 
application. 

Once  this  decision  has  been  made,  the  operator  inputs 
the  desired  orders  of  polynomials.  The  corresponding  coef¬ 
ficients  are  then  recalculated  and  the  operator  is  asked  for 
a  file  name  under  which  he  wants  to  have  these  coefficients 
stored  in  a  7  by  7  array. 

As  programs  &REST8  and  &REST9  are  in  principal  identi¬ 
cal,  only  one  flow  chart  (Pig.  D-l)  is  given,  and  a  listing 
of  program  &REST9  is  given  in  (Fig.  D-2) . 

Labeled  common  blocks: 

Common  block  identifier  Variable 

MATRX  A ,  B 

SUMME  BETA,  GAMMA,  XVEL  (or  PHI) 


Variables 

Type 

Description 

A  ( 49 , 49) 

Real 

System  matrix  used  for  the  3-D  approxi¬ 
mation  of  XVEL  (or  PHI)  as  function  of 
BETA  and  GAMMA  (see  Ref.  6) 

B  ( 49) 

Real 

Right  hand  side  vector  of  3-D  approxima 
tion  (see  Ref.  6) 

BETA (16, 16) 

Real 

Beta — pressure  coefficient 

COEFF (7,7) 

Real 

Approximation  coefficients  array 

124 


Variables 

lZ££ 

Description 

D { 10 , 54) 

Real 

Calibration  data  array 

GAMMA 

Real 

Gamma — pressure  coefficient 

ICR 

Integer 

Cartridge  reference  number 

IDC3 (144) 

Integer 

Data  control  block 

IFILE { 3 ) 

Integer 

Array  containing  file  name 

ISECU 

Integer 

Security  code 

ISI ZE ( 2 ) 

Integer 

Array  to  specify  file  dimensions  (1st 
word  for  number  of  records,  2nd  for 
record  length) 

ITYPE 

Integer 

Type  of  data  file 

NMACH 

Real 

Number  of  different  Mach  number  settings 
during  the  calibration 

NPITCH 

Real 

Number  of  different  pitch  angle  settings 
during  the  calibration 

PHI (16, 16) 

Real 

Array  containing  the  actual  pitch  angle 
settings  during  the  calibration 

PI 

Real 

3.14593 

R  ( 16 ) 

Real 

Array  containing  the  individual  errors 

between  calibration  data  and  calculated  j 

values 

SUM 

Real 

Calculated  value  of  XVEL  or  PHI  (de¬ 
pending  on  program) 

XVEL (16,16)  Real 


Array  containing  the  actual  Mach  number 
(X)  settings  during  the  calibration 


DO  or 2 
00  0  1.2 


Figure  D-l.  Flow  Chart  of  Data  Reduction  Program  &  REST  8/9 


Ml  EG T9  f *  0  0  0  0  9  IS  QN  CR0OQ26  USING  00024  BlKS  R-00R0 


PROGRAM  REST9  <3,99> 


Thi%  i%  program  REST9  1 

It  read*  file  ABNEW2  <2b)  which  contain#  calibration  t'ata  fr#o 
the  new  A-  and  H-probt  <  0.062“  o  d.  screen  with  noi««J  . 

It  then  approximates  the  pitchangle  Ph  »  a*  a  function  of 
beta  and  gamma  by  different  order  of  pelynommal* 

The  results  of  all  oppr o i mat • on*  are  printed  for  evaluation 

?urposes,  but  only  one  set  of  coefficients  is  stored 
he  software  used  for  the  polvnomnal  approximation  *s 
available  in  tne  Tgroopr  opu  1  si  on  Laboratory  Binary  Library 
ITPL&L).  See  NPSb? -80 -5 0 i CR  for  further  reference. 


for  further  reference. 


COMMON  /  MATRX  /  A,B 

COMMON  /  CUM ME  /  BE TAJ GAMMA . PHI 

REAL  At  49,49 > , B < 49 >  .ctiEFF ( 7 . 9 > .0 ( 1 0 , 54 ) 

INTEGER  l6CB< i44>.If!LE< 3) , tSlJf <  2 ) 

REAL  BETA* 16,16) , GAMMA t 16,16) ,PNl< 16, 16  > 

REAL  R ( 16) 

DATA  PI  /J  141S93/ 

DATA  ITILE  /2HA6,2HWE ,2HW2/ 

DATA  ISECU  /0/ 

DATA  ICR  /26/ 

DAI  A  ITYPE  /l/ 

DATA  ISIZE  /3.120/ 

DATA  IDLPS  /I 44/ 

1  FORMAT  (-  SELECT  SCT  0F  COEFFICIENTS  FOR  BEST  RESULTS  •“/“  EntER  M 
•ORDER  AND  NORDER  NOW  :“) 

?  FORMAT ( -“( ( 3A2 ' ) > 

1  FORMAT  (///“  COEFFICIENTS  FOR  ThE  CALIBRATION  SURFACE  SCORED  IN  FI 
RLE  :"3A2/> 

?  FORMAT  < «3X.10(11X.:2>>> 

3  FORMAT  (  1 X , *2 , 7<  2X  Flt.b>> 

»  FORMAT  {///m  ERRORS  AT  EACH  POINT  < DEGREES)  V' > 

5  FORMAT  ( < AX. 16i6< . X2> > > 

!►  FORMAT  <  1  <  ,  12, 16(  1  X.F?  J  WTI  ay  »6<  l  *fF?  3>M) 
i  FORMAT  (  *  STATEMENT  •  *14  *  E*ROR  0  *14  •  ENCOUNTERED  **t 
Li  *  LOCLU(I) 


READ  DATA  FILE  APNEW2  FROM  CARTRIDGE  26  INTO  ARRA t  D-I0 

call'  OPEN  -  (  li>CB,  lERR;  IFIlE  .  I  CP  T  n  ,  ISECU,  ICR  .  IDCBS) 

JJ  *  1 

IF  (  IFRP  L  T  .  n  '  WRITE  armi)  JJ.IERR 
CALL  RFADF  <IDCB/IERR,D,1»)8U  ,  l£n , 1  > 

JJ  =*  ? 

IF  <  I6RP  -T  C  »  WRITE  (LI. illl>  JJ.IEBR 

call  Close  lines. xerr . a ► 

J  »  •  .< 

IF  (  I  ERR  LT.  0  »  WRITE  <  L  I  ,  J 1 i I  >  JJ.IERR 


I  J 

DO  001  I 
DO  001  J 
I  T 


«  0 

*  l,t»,l 

* 


IF  (J  GO.  S)  DH.1J)  =  pi*,:J>  ♦  1  Onflji 
PM I  < I , J>  •  0<4, t  PI  •  i 80  0 


beta  ( I  J  >  *  Dl 8 , 1 J  > 
001  GAMMA < I , J .  *  D(9,IJ) 


NMACH 

NPITCH 


002  CONTINUE 


CALCULATE  CALIBRATION  SURFACE  Crfrc \c j f . 


Figure  D-2. 


Listing  of  Reduced  Data  Approximation  Program  &REST9 
(Continued  on  next  page.) 
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118  c 

0081 

oof? 

0084 
008S 
0068 
0007 
0008 
0009 
0090 
0091 
0092 
0093 
0094 
009S 
0096 
0  097 
0098 
3099 
0100 
OVOl 
0102 
0103 
0104 
OIOS 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
OHS 
0116 
0117 
0118 

«« 

0121 

'SIM 

0124 
0125 
0126 

0129 
0129 


m 

DO 


DO  Oil 

S88BI  i 


003  CONTINUE 
DO  00 4  I 
DO  004  J 
004  COEFF <1,1) 
H 
N 


. 6 . 

Oil  HU  •  1.6,1 
NU  •  1*6,1 
■  HU 
NU 


1,7,1 
1  ,7,1 
0.0 

nor  derm 
nor  derm 


CA^COHAT  (A  JI,H  ,N  ,NHACH,NP  ITCH) 


NEGUS 
CALL  ELCJ 
1 1  a 

DO  00S  I  * 

DO  005  J  * 

XI 

00S  CCEFF(X.J)  * 
IF  (  IJI  . NE 
IFILE  < 1 )  • 

IFILE(2>  * 
IFILE  <  3) 


(N£OUS> 

0 

1  ,H  .  1 
1  ,N.  1 

I  i  +  { 

bill} 

.  1  >  COTO  006 

2MH I 

2HST 

_  2HFI 

CALL  CREAT  ( IDCB , I ERR , IFILE , I SIZE , I TYPE , ISECU, ICR , IDCBS) 

JJ  •  4 

IF  (  IERR  .CT  0  >  WRITE  (LI.  1111)  JJ.IERR 
CALL  OPEN  < I DCB , IERR, IFILE, I Op TN, ISECU, ICR, IDCBS) 

JJ  •  S 

IF  (  IERR  LT.  0  '  WRITE  (LI.111D  JJ.IERR 
CALL  WRITF  < IDCB, IE SR ,COEFF , 98) 

J  J  ■  6 

IF  (  TERR  .LT,  0  >  WRITE  <U,Uit>  JJ,IERR 
CALL  CLOSE  ( ID(bB ,  IERR  ,  J  ) 

JJ  •  7 

IF  (  IERR  .LT.  0  >  WRITE  (LI, till)  JJ.IERR 
WRITE  (6,601)  IFILE 
006  CONTINUE 

URXTF  (6,602)  <J,J-1,N,1> 

DO  007  ZM.ft.l 

007  SHI  \lM  U<.5“"5hJ,,,*1,M'1> 


CALCULATE  ERRORS  FOR  ALL  HACHNUHBER  PITCHANCLE  COHBlNAT IONS . 


WRITE  (6.604) 


WRITE  (6. 60S)  <  J , J ■ 1 , NP I TCH , \ ) 
DO  0  10  1  »  l,N*ACH  1 

DO  009  J  «  l.NPITCH.l 

'z  i  im  .  a 


oisr 

53  oo*  J  .  { 

0132 

3UH  »  0 

0133 

DO  008  11  *  1 

0134 

DO  000  Jl  *  1 

Q13S 

008 

SUH»SUHM  COEFF 

0136 

009 

f?(J)  •  ( 

0137 

010 

WRITE  (6.606) 

0138 

0139 

WRITE  (6,605) 

.1141 

0141 

IF  (IJI  .EQ.  1 

0142 

OH 

CONTINUE 

0143 

WRITE  (LI, HD 

0144 

read  <li,  *) 

0145 

IJI  »  1 

Q  l  46 

COTO  003 

0147 

012 

STOP  7777 

0148 

END 

f  180.0  /  PI 


>  COTO  012 


t)  NORDER  ,  HORDE R 


Figure  D-2.  Listing  of  Reduced  Data  Approximation  Program  &REST9 
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APPENDIX  E 


DATA  EVALUATION  PROGRAM  &EVALU 

As  described  in  5.1,  program  &EVALU  simulates  a  case  in 
which  calibration  data  is  treated  as  actual  test  data — as 
far  as  possible.  From  this  data  flow  quantities  of  Mach 
number  and  pitch  angle  are  derived  using  the  whole  data  re¬ 
duction  method,  and  compared  with  the  known  actual  values. 

The  program  is  set  up  to  perform  this  comparison  for  all 
given  Mach  number/pitch  angle  combinations.  However,  since 
the  process  is  rather  extensive  and  time-consuming,  the  pro¬ 
cedure  is  actually  only  worked  out  for  a  limited  range  of 
calibration  settings. 

First  of  all  the  program  reads  the  sets  of  coefficients 
for  the  Mach  number  and  pitch  angle  approximations  (as  gen¬ 
erated  in  &REST8  and  &REST9)  into  two  arrays.  In  a  loop 
corresponding  calibration  data  of  the  "A"  and  "B"  probes  for 
one  Mach  number/pitch  angle  combination  is  read  at  a  time. 
This  data  is  read  into  two  data  arrays  (ADATA(2, 320)  and 
BDATA (2 , 320) ) .  For  nine  defined  yaw  angles  (t65°,  ±45°, 

±30° ,  ±15°,  0°)  the  program  searches  for  given  yaw  angles 
which  are  closest  to  the  defined  ones  and  averages  four  yaw 
angles  bigger  and  four  smaller  than  the  one  found  as  well 
as  it  averages  the  corresponding  pressure  values.  This  re¬ 
sults  in  nine  single  pairs  of  PA  values  and  yaw  angles.  The 
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B  probe  "data  acquisition"  is  handled  differently.  For  a 
range  of  yaw  angle  smaller  than  the  whole  calibration  range 
the  output  of  the  B  probe  pB  is  approximated  with  a  sixth 
order  polynomial  as  a  function  of  yaw  angle.  For  nine  spe¬ 
cific  values  of  yaw  (±30°,  ±22.5°,  ±15°,  ±7.5°,  0°)  corres¬ 
ponding  pressure  values  pB  are  calculated  using  the  derived 
polynomial. 

These  data  arrays  PA (9) /YAWA (9 )  and  PB (9) /YAWB (9)  are 
equivalent  to  the  data  acquired  in  a  test.  They  are  again 
approximated  and  the  pressure  values  PAKAX,  PSA  and  PBMAX 
are  calculated.  The  data  reduction  procedure  as  outlined  in 
4.5  is  applied  to  these  values  and  the  Mach  number  (or  X) 
and  pitch  angle  are  derived.  Since  the  yaw  angle  is  always 
adjusted  to  zero  when  aligned  with  the  flow  in  the  freejet, 
the  yaw  angle  should  always  turn  out  to  be  zero.  However, 
the  program  offers  the  possibility  to  artificially  super¬ 
impose  a  different  yaw  angle  in  that  the  given  relationships 
PA  =  PA(a)  and  pQ  =Pg(a)  are  shifted  to  pA  =PA(a  +  £a)  and 
PB  =PB(a+Aa),  where  La  is  the  "artificial"  yaw  angle.  The 
quality  of  the  flow  quantity  calculations  is  expressed  in 
errors  of  Mach  number,  pitch  angle  and  yaw  angle  as  described 
in  5.1.  The  necessary  error  values  are  printed  out  and  the 
loop  is  continued.  Figure  E-l  gives  a  flow  chart  of  the 
program  while  Fig.  E-2  contains  a  listing. 
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Labeled  Common  Block: 


Common  block  identifier:  Variable: 


DTA2 

XI,  y 

Variable 

Type 

Description 

AAO 

Real 

Flow  yaw  angle  derived  from  A  probe 

ABO 

Real 

Flow  yaw  angle  derived  from  B  probe 

AD ATA (2,320) 

Real 

Array  to  contain  the  A  probe  data 

AFILE (3) 

Integer 

Array  to  contain  the  file  name  for 

A  probe  data 

ASL 

Real 

Left  hand  side  yaw  angle  of  A  probe 
output 

ASR 

Real 

Right  hand  side  yaw  angle  of  A  probe 
output 

BDATA(2, 320) 

Real 

Array  to  contain  the  B  probe  data 

BFILE (3) 

Integer 

Array  to  contain  the  file  name  for 

B  probe  data 

COEF ( 7 ) 

Real 

Array  to  contain  coefficients  from 
2-D  approximations 

COEUX (7,7) 

Real 

Array  containing  the  coefficients 
of  the  3-D  approximation  for  the 
velocity 

COEUP (7, 7) 

Real 

Array  containing  the  coefficients 
of  the  3-D  approximation  for  the 
pitch  angle 

CPAMAX 

Real 

Maximum  pressure  coefficient  A  probe 

CPBMAX 

Real 

Maximum  pressure  coefficient  B  probe 

DP 

Real 

Pressure  difference  for  two  pressure 
values  corresponding  to  two  yaw 
angles  which  are  separated  by  DX 

DPX 

Real 

First  derivative  of  the  function 

PA(ot)  “  PA(»  ~  Act) 

• 

DX 

Real 

Given  spread  in  yaw  angle  between 
PSAL  and  PSAR 
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Variable 


ERPHI 

ERXVEL 

ERYAW 

GAMMA 

ICR 

IDCB (144) 
IFILE (3) 
IL 

ISECU 

ISIZE  ( 2) 

ITYPE 

ICLR (3) 

NOLF 

NOCR 

PA  (9) 

PAMAX 

PB  (9) 

PBMAX 

PHI 

PHIME 

PSA 

PSAL 


Type 

Real 

Real 

Real 

Real 

Integer 

Integer 

Integer 

Integer 

Integer 

Integer 

Integer 

Integer 

Integer 

Integer 

Real 

Real 

Real 

Real 

Real 

Real 

Real 

Real 


Description 

Error  between  measured  and  calculated 
pitch  angle 

Error  between  measured  and  calculated 
Mach  number  (Xvel  rsp.) 

Error  between  measured  and  calculated 
yaw  angle 

Pressure  coefficient 

Cartridge  reference  number 

Data  control  block 

Array  containing  file  name 

Total  number  of  words  read  from 
data  file  (two  words  for  one  value) 

Security  code 

Array  to  specify  file  dimensions 
Type  of  data  file 

Command  to  clear  line  above  cursor 

No  line  feed  command 

No  carriage  return  command 

Array  for  A  probe  pressure  values 

Maximum  pressure  of  A  probe 

Array  for  B  probe  pressure  values 

Maximum  pressure  of  B  probe 

Pitsh  angle  (calculated) 

Pitch  angle  (measured) 

Static  pressure  equivalent  of  A  probe 

Pressure  reading  of  A  probe  for  a 
yaw  angle  63°  to  the  left  of  the  flow 
aligned  yaw  angle 
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Variable 


Variable 

Type 

Description 

PSAR 

Real 

Pressure  reading  of  A  probe  for  a 
yaw  angle  63°  to  the  right  of  the 
flow  aligned  yaw  angle 

PSTAT 

Real 

Static  pressure 

PTOTAL 

Real 

Total  pressure 

P1-P8 

Real 

A  probe  pressure  values  in  the 
vicinity  of  a  given  yaw  angle  giving 
the  basis  to  find  an  average  pres¬ 
sure  value  for  the  corresponding 
yaw  angle 

XVEL 

Real 

Mach  number  equivalent  dimensionless 
speed 

XVELME 

Real 

Measured  XVEL 

XO 

Real 

Starting  value  for  the  iteration 
to  find  PSAL  and  PSAR 

Xl  (256 ) 

Real 

Data  array  for  2-D  approximations 

Y ( 256) 

Real 

Data  array  for  2-D  approximations 

YAWA ( 9 ) 

Real 

Array  containing  A  probe  yaw  angles 

YAWB ( 9 ) 

Real 

Array  containing  B  probe  yaw  angles 

YAWOFF 

Real 

Superimposed  yaw  angle  offset  to 
simulate  yaw  angles  different  from 
0°. 

Y1-Y8 

Real 

A  probe  yaw  angles  in  the  vicinity 

of  a  given  yaw  angle  equivalent  to 
P1-P8. 
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READ  APPROXIMATION  COEFFICIENT 
FILES  MISTXU  AND  MTSTFI  INTO 
ARRAYS  COEKX  AND  COE.KP  . 


READ  SUPERIMPOSED 
YAW ANGIE  OFFSET. 


iach/pitchangl?* 

COMBINATIONS 
^  DONE  ? 


Figure  E-l.  Flow  Chart  of  Data  Evaluation  Program  &EVALU 


'ICVALU  T. 00004  IS  ON  CR00026  USING  00051  BLKS  R=0000 


PR OCR AN  EUALU  <3, 99) 


THIS  IS  PRQCRAN  E  V  A  L  U  Cott>  f 

IT  CAN  TREAT  THF  RAW  DATA  FROM  THE  A-  AND  B-PROBE  CALI¬ 
BRATION  LIKE  ACTUAL  TEST  DATA  ‘ 


COMMON  /  D  TA2  /  XI  X 

INTECFR  I DCB  *  1 44 )  A F I LE < 3 ) , I S I ZE < 2 > .NOLF ,NOCR (2 ) , ICLR(3) 
INTEGER  AFIL£<3> .BE ILE<3> 

REAL  ADATAtC ,320 J, PDATA<2,320 >  .  X 1  < 256  >  ,  Y < 2S6> , COFF < 7 > 
REAL  COEKXt^;?) ,CaEKP(7,7j 


RFAL  PA  (9) 
DATA  IS  I ZE  (1) 


,P&  i9> 
/  10/ 


,  Y AUA( 9  >  , YAWP ( 9 ) 


DATA  ISIZE  <2>  /  128/ 


DATA  ITYPF.  /  1/ 

DATA  IDCBS  /  144/ 

DATA  IL  / 1 280 / 

DATA  NOLF  /006537B/ 

DATA  NCCR  /000033B , 04H433B/ 

DATA  ICLR  /015524B, 015S15B, 006S37B/ 

148  F ORNAT  <  *  DO  too  WANT  AN  OUTPUT  OF  THf  r* 

«/"  ENTFR  TES  IF  SO  OR  ANTTNINC  ELSE  IF  Hi 


148  FORMAT  (  m  DO  you  want  AN  OUTPUT  of  THf  CALIBRATION  COEFFICIENTS?  * 
«/"  ENTER  TCS  IF  SO  OR  ANTTNINC  ELSE  IF  HOT  * " > 

149  FORNAT  < ( 3A2 > ) 


150  FORMAT  C  ENTER  FILE  (  >  FOR  X  APPROX  I NAT  ION •" / 

•  "  DON'T  FORGET  SECURITY  CODE  6  CARTRIDGE  REFERENCE  NUMBER 1 "/ 

•  "  i  -A2> 

151  FORMAT  <3A2.IX.I2. IX, 12) 

152  FORMAT  (✓/*  THg  D4TA  REAP  FROM  FILE  "3A2"  ARE"/> 

153  FORMAT  <“  I  T  J 

154  FORMAT  <"  *I3.7< IX ,Fll . 6) ) 

155  FORMAT  <•  ENT^R  f1lE  (SIFP  )  FOR  PHI  APPROXlMAT ION •" / 

•  "  DON'T  FORGET  SECURITY  CODE  6  CARTRIDGE  REFERENCE  NUMBER1"/ 

•"SIFP  t  -A2) 

156  FORMAT  <"  ENTER  THE  OFFSET  OF  ThE  Y AUANCLE  IN  DECREES 

1 57  FORMAT  (  "  RESULTS  r  R  OM  THE  A-B  SYSTEM  "/  '  1  0  X  "CALCULAU  ON  :  - 1 SX  "MEASU 
•REMENT  •  M2X-ERRORS"  bX  "XVEl.  "5*  "*>  t  TCM"7x**YAW  “6X"XVEL  *SX*P  I  TCH“6X"XV 
•El  ■'5X"PITCH*7X-YAU“3X"YAH  FROM  A  PROBE**//) 

150  FORMAT  < IX <  JA2> ) 

159  FORMAT  </••  R  A  U  DATA  "/"  •  A  -  KULlTE  B  -  KUL I TE  "?X "  YAU  A 

•  "7X  *’ YAW  B  "  1 

160  FORMAT  <  13 , 4<2X  Ft  0  5>> 

161  FfRMATl-  A-PROB£  APPROXIMATION  RESUl T5  YAU  *  *3 < 3X , F9 . 2 > / 16X"  PR 
•ESSURE  <  I NCH  H20)  =  " 3  <  3X  ,  F  \  \  .  6  >  /  29  X  **  CPANAX  *  “F3.4>> 

1 62  FORMATt/"  B-PROBE  APPROXlMAT ION  RESULTS  :  YAW0  -  "FS.l"  PRESSURE 

•  (INCH  H20>  a“F6.2/0 

163  FORM*  < 1XxF9.4 .2(3X.F7.2>,IX,F7.4,3X  fF7.2,lX,F9  4t3<3X,F7.2) ) 

601  FORMAT  C  1  /  $  "ll£. 6I16> 

f>02  FORMAT  <"  *  13 .7  <  \X  .  F  l*S  .  6  >  ) 

603  FORMAT  <"  ARTIFICIAL  YAU  ANGIE  OFFSET  IS  :  M3"  DEGREES  "//> 

604  FORMAT  </) 

Ull  FORMAT  <"  STATEMENT  •  *  "13"  ERROR  •  *  M3"  ENCOUNTERED  •"  > 

LI  »  LOCLU  <  2SESSN • 

LO  »  n 

WRITE  ( l I , l 48 ) 

READ  <  L !  .  149)  IRR2N1 


READ  FILE 


FROM  CISC  INTO  ARRAY  COEKX<?.?>, 


WRITE  <  L 1 , l SO )  NOLF 

READ  ILX , 151 > IFluE . ISECU , ICR 

WRITE  (  l  1 , 1 49  >  <ICLfi.il  *  1,3) 

CALL  OPEN  < IDCB , IERR  ,  IF ILE , IOPTN , ISECU ► ICR  » IDCDS ) 
:  J  *  i 

IF  (  IERR  .LT.  0  *  WRITE  .1,11111  JJ,IERR 
JALL  RLADF  < IDCB , IERR .  OEKX . 98 . LEN , 1 ) 

IF  v  IF RR  .LT.  C  WRITE  (Ll,llll>  JJ.IERR 
CALL  CLOSE  < IDCB , IERR . 0 ) 

JJ  «  3 

IF  (  IFRP  ,LI.  C  »  WRITE  <  L I  ,  1 1 1 1  1  3  7.  IERR 
IF  < I P R I N l  NE  2m  VF )  GOTO  016 


Figure  E-2.  Listing  of  Calibration  Data  Evaluation  Program  &EVALU . 
(Continued  on  next  page.) 
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HV'v 

uOBO 
0081 
0062 
0093 
0084 
0085 
0096 
0097 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
009S 
00  96 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
OIOS 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
0115 

011b 

0117 

0119 

0119 

0120 

0121 

0122 

0123 

0124 

012S 

0126 

0127 

0129 

0129 

0132 

0133 

0134 

013S 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

OiSO 

0151 

0152 

0153 

0154 

01SS 

01S6 

0157 

OtS0 


OUTPUT  INPUT  DATA. 


WRITE  <U,  152)  IF  TIE 

IF  (  LO  . NE .  0  )  WRITE  (to,  152)  IFILE 

98 1 TE  (LX,  153  >  (11.11*1,7) 

IF  t  LO  .ME.  0  )  WRITE  (LO,  60 1 >  (XI, 11-1,7) 

DO  005  Il-t.7,1 

IF  l  LQ  . Nfe .  0  )  WRITE  <LO,  602)  1 1 , < COEKXt 1 1 , J1 >  , Jl-1 ,7 , 1 > 

005  WRITE  (LX,  154)  21  ,<  COEKX  <  1 1  ,  J1  ),  Jl-1  7 , 1  ) 


READ  FILE 


FRO*  DISC  INTO  ARRAY  C0EKP(7,7). 


010 


CONTINUE 

WRITE  v  L I ,155)  NOLF 

READ  <  LI , iSl )  IF ILE , ISECU , ICR 

WRITE  <  L I , 1 49  >  (ICLR.I1  *  1,3) 

CALL  OPEN  ( IDCB , ICftA , IFILE | XGPTN ,  ISECU ,  ICR  ,  IDCBS  > 
JJ  *  4 

IF  (  IERR  LT.  0  )  WRITE  (LI, 1111)  JJ,IERR 
CALL  READF  ( I DCB , IERR , CQEKP , 99 ! LEN , 1 ) 

IF  (  IERR  .LT .  0  )  WRITE  (LI, 1111)  JJ,IERR 

CALL  CLOSE  < IDCB , I  ERR , 0 ) 

JJ  •  6 

IF  (  IERR  .LT.  0  )  WRITE  (LI, 1111)  JJ,IERR 
IF  ( IPR INI  .NE.  2HYE)  GOTO  020 


WRITE  (LI,  152)  IFILE 
IF  <  LO  .NE.  0  >  WRITE  (LO,  152)  IFILE 
WRITE  (LI,  1S3  >  (11,11*1,7) 

IF  (  LO  NE.  0  >  WRITE  (LO,  601)  (11,11*1,7) 

DO  01S  11*1.7,1 

IF  (  tO  . Nt .  0  >  WRITE  (LO,  602)  II , < COEKP ( 1 1 , Jt > , Jl * 1 ,7 , 1 > 

01S  WRITE  (LI,  154)  I 1 , (COEKP < I 1 , J 1 ) , Ji*l , 7 , 1 ) 

020  CONTINUE 


WRITE  (LI, 156 ) 

REAO  <1.  *>  YAUOFP 

WRITE  (Ld,6Q3)  YAWOFF 
AFILE<1)  *  2HA2 
AF ILE < 2 >  »  2HKP 
BFILE(l)  ■  2MB2 
UI  -  1 

15  «  1 

WRITE  ( LO , 157 > 

GOTO  135 
025  CONTINUE 

WRITE  (LI, 158)  AFILE 
WRITE  (LI,1S8>  BFILE 
IJI  *  IJI  ♦  1 

15  »  IS  ♦  1 

IF  ( AFILE ( 1 > .EQ.2HA2.0R  AFILE (2)  EQ.2HKN.0R .AFILE (3) .EQ.2H25.0R . 
*AFILE<3) .EQ.2H20)  GOTO  135 
CALL  OPEN  (IDCB, IERR , AFILE, IOPTN, ISECU, ICR ,IDCBS) 

if  r  IERR  LT.  0  >  WRITE  (LI.llll)  JJ,XERR 
CALL  READF  ( IDCB , IERR , ADATA , tL , LEN , 1 ) 

JJ  ■  9 

IF  (  IERR  .  LT  ,  0  >  WRITE  (LI,1U1>  JJ,IERR 
CALL  CLOSE  (IDCB, IERR, 0) 

JJ  •  9 

IF  <  IERR  .LT.  0  >  WRITE  (LI,  1111)  JJ,IERR 

CALL  OPEN  < IDCB, IERR, BFILE , IOPTN , IBECU , ICR, IDCBS) 

JJ  •  10 

IF  <  IERR  LT,  0  )  WRITE  (LI, 1111)  JJ,IERR 


E-2.  Listing  of  Calibration  Data  Evaluation  Program  &EVALU 
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j 


I 

fc 

t 


JlS- 

jlv'l! 

dial 

.1162 

OlfcA 
OioS 
0  1&6 
a  ib? 
sIloS 

0lt,9 

It*'? 

ov/\ 

.1172 
0l~3 
1174 
l)\7S 
0 1 7  b 
0177 
11  "’G 
0<  ?9 

aiao 
oiai 
0102 
0103 
in  84 

oias 

a\66 

Old? 
0188 
01Q9 
01  90 
0  1 7  \ 
0192 
0193 
0194 
0195 

a  i^6 

0197 
OJ  99 

Q199 

11203 
0201 
0202 
0203 
0204 
0205 
0706 
0207 
3208 
0209 
0210 
0211 
0212 
32  V  3 

1)214 

(1215 
0216 
0  21? 
o2n 

0219 
0220 
3721 
0777 
1223 
0224 
0725 
0226 
07:  7 
0728 
0229 
0230 
0231 


.7w6  .  ,c  ?.H  .  rl'A  i  A 


.ALL  VfAOF 

.;  7  *  t  l 

IF  <  IE»R  LT.  3  *  WRITE  iLl.llll)  Jj.rCRR 
CALL.  CLOSE  \  IDCB  ,  1ERR  ,  J  ) 

JJ  *  12 

IF  \  1ERR  .LT.  0  i  WRITE  iLl,XUi)  JJ,J£ffR 

DO  030  t  *  1,300.1 
ADATA  ( 1  , 1 >  =  ADA T A  ( 1  . 1 1 
?OATA  I  5  I )  a  &DATA  t 1 . ’ 


ADATA  v.2,1)  *  AOAT h  v2,I)  ♦ 


0  3S 
040 


&DATA  <  2  ,  I  >  *  BDATA 
II  *  0 

DO  055  J  •»  -60,60,  IS 
Jl  »  J 
IJ  *  J  /  2 
IF  (  J  .EG,  -60  )  JI 
IF  <  J  .  FQ .  60  )  JI 

II  »  II  ♦  1 
DO  035  T  *  1.150,1 
IF  ( ADA  I A< 1  . 1 )  .LT 
Yt  »  ADATA( ( , 1-2) 

P\  *  ADAT A( 2 , 1-2 ) 

Y2  «  ADATA(  1  . 1-1 ) 

P?  »  AOATAi 2,1-1 ) 

Y3  »  ADATA< 1,1  ) 

P  3  *  ADATA<2,Z  > 

Y 4  »  ADATA( l  ,  t ♦  1  ) 

P 4  *  ADaTA(2, 1>1  ) 
GOTO  <140 
CONTI NOE 

DO  045  I  *  151.300 


.  I ) 


-65 

3S 


Y  AWOFF 

YAUOFF 
adata  (1 
KDATA  (1 


319> 

719) 


JI  )  GOTO  035 


0  45 
0S0 


IF  <  ADATA< 1  , 1  f  Gt.  JI  )  GOTO  045 
Y5  -  ADATAt 1 , I -2 > 

P5  *  ADATAi  2, 1-2) 
t6  *  ADATAL 1,1-1) 

P 6  *  ADATAL  7,1-1) 

Y7  *  ADATA( l , J  ) 

P7  *  ADA ' A( 2 , I  ) 

Y9  *  ADATA( \ . I ♦ 1 > 

P 8  -  ADA  f Al 2 , 1 ♦ 1 ) 

GOTO  (ISO 
CONTINUE 


055 

060 

065 


*tm 

Y  1 

Xl  (2) 
XI  (  3) 

Y2 

Y3 

XI  <4  ) 

Y  4 

XUS) 

Y3 

X  l  <  6  > 

Y  6 

XI  i  7) 

Y7 

XI  (8> 

YG 

Y  (  1  ) 

Pi 

Y  (2) 

on 

Y  (3) 

°3 

Y  i4> 

P  4 

Y  (5) 

a 

PS 

Y  (6) 

* 

Pfe 

Y  (  7  > 

P  7 

Y  tB> 

P  9 

YAUAt I 

I  1 

i  a 

PA  (  1 

1  ' 

>  n 

<  Yl**2*v3*Y4*v5* Y6* Y7**9)  / 
<Pl  fAp.P  3*P4*PS-*P6«P7*P8  )  / 


360  t  *  26,125.1 
I  -  25 


DO 
J 

M<  J)  *  BPATACi  ,1) 

Y  k.T)  *  EiOATA<2.  :  ) 

DO  065  I  *  176,275,1 
J  *  l  -  75 

Xl<J>  *  BPAT A( 1 , I ) 

Y  ( J )  *  BOAT  A ( 2  ,  I  > 

NPMIS  «  200 

CALL  OAT 2  (NPNT3,7 ,COCF ,-l) 


DO  073  I 


070  »  ?hP<6,£o£r7l'AW& 


WAITE  (LI, 159) 

DO  075  Z  *  1,9,1 


Figure  E-2.  Listing  of  Calibration  Data  Evaluation  Program  &EVALU 
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Figure 


.>1  - 

0240 

0241 

;i242 

0243 

1)244 

024S 

0246 

024’’ 

02*8 

0249 

02S0 

02Sl 

02S2 

02S3 

02S4 

02SS 
32S6 
Q2S7 
Q2S8 
0  2*39 
0260 
0261 
0262 
0263 
0264 
026S 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
027S 
0276 
0  277 
C278 
0279 
0280 
0281 
0782 
0283 
0294 
028S 
0286 
0287 

o?ua 


0292 

0293 
0294 
029S 
0296 
0297 
0.798 
0299 
0100 
0301 
0  307 
0303 
0304 
03  OS 
0306 
0307 
0308 
0309 
0310 
0311 
0312 
0313 
0314 
031S 
0316 
0317 
0318 


*R  1  T  E  v  i_  I  .  1  c  0  >  .  ,.'4u  '  ,*?i  t  ,  :  Ay  A  <.  i  '  ,  i  - 

PBARO  =  «  ADATAi2a3l9>  ♦  BI'ATA  1 2 . 3l9  >  ) 
PST  AT  *  PBARO  «  1 3  *8S 
PTQTA4,  *  (  (  ADATA(  : 


PtOTAc  =  (’<  ADATA(2,3t8>  ♦  BnATAi2,3t8> >  t  2)  ♦  cPPARO 
XVFLMe  a  SBRT  (  i  -  IPTOTAL/PSTAT  >  •*  (  - 1)  .  28S7  )  ) 


*  13.S3S) 


PHIME  *  ADATAl  1 ,320  > 

DO  080  I  *  1,9  i 
XI (I)  =  YAWAiI) 

Y  cl)  *  PA  iD  ♦  <  P PAR 0  t  13.S0S 
CALL  MAT 2  < 9,5>C0EF , -4) 


FIND  MAX.  OUTPUT  OF  A  PROBE. 


DX  =  126.0 

X0  a  -70.0 

OSS  DP  =  ( FNP ( 4 .  COfF ,  XO ) -FNP ( 4  .COEF , I  X  0  +  DX ) ) ) 

if  < abs< dp )  ,lt:  o.oooi)  goto  690 

DPX  »-2.*C0EF<3)«DX-6. *COEF ( 4 ) tX0*DX-3 . *COEF <  4 ) *DX*DX - 

«  12. «COEF(S)*XO*XO«DX-t2. *CO£F(S)*XO»DX*DX-4 . «COEF l S ) #DX**3 


xo 

GOTO  08S 
090  ASL 
ASR 

AAO  » 
PAMAX  » 
PSAL  * 
PSAR  • 
PSA  * 

ptotal  - 

BETA 

CPAMAX 


*  XO  -  DP  /  DPX 


XO 

XO  ♦  DX 
XO  ♦  DX  /  2 . 0 
FNP  <  4 , COFF , AAO  > 
FNP ( 4 ,  COEF , ASL ) 
FNP ( 4 , COFF! ASR ) 
(PSAL  «•  PSAR)  / 
PAMAX 

( P AMAX  -  PSA)  / 


2.0 


.  PAMAX 

(PAMAX  -  PSA)  /  (PTOTAL  -  PSA) 

IF  (  IPRINT  .HE.  2HYE  )  GOTO  09S 
WRITE  (LI. 161)  ASL .AAO .ASR .PSAL, PAMAX.PSAR, CPAMAX 
IF  ( 1.0  . n£ .  0  )  WRITE  CLO,l6t>  ASL , AAO , ASR  , PSAL , PAMAX , PSAR , CP AMAX 
09S  CONTINUE 


DO  100  I  -  i. 9.1 
XI (  I)  -  YA«8< I ) 

100  Y  <  I )  »  PBU)  ♦  (PBARO  *  13.S8S) 

CALL  MAT 2  (  9  ,  S  , COEF , -A ) 

XO  *  0  00 

110  DPX  ■  FND<4,COEF .X0> 

IF  (  ABS(DPX)  .  LT .  J.OdOOt  )  GOTO  US 

xg  »  XO  -  DPX  /  ( 24C0EF  (  3 )  ♦  6»COEF(4>tXO  124C0EF  ( S  )  *X0*X0  > 


c8to  110 


XO 


IIS  ABO 

PBMAX  «  FNP ( 4 , COEF , ABO ) 

IF  (  IPRINT  NE  2HYE  )  GOTO  120 
WRITE  (LI. 162)  ABO. PBMAX 
IF  (1.0  NE  .  0  >  WRITE  (L0.162)  ABO  , PBMAX 
120  CONTINUE 

<  PBMAX  -  PSA  )  /  (  PTOTAL 
(CPAMAX  -CPBMAX)  /  CPAMAX 
0  .  0 
0  .  0 
1.7,1 
1  .7,  i 

XVEL  ♦  (COEKX (11,12) 

PHI  «•  (COEKX( XI , 12) 

PHI  *  190.  /  3.141 S? 

<<  XVELME  -  XVEL  >  /  XVEL  )  *  100. 
PHIME  -  PHI 

YAWOFF  ABO 


CPBMAX 
GAMMA 
XVEL 
PHI 

DO  12S 
DO  12S 
XVEL 
12S  PHI 
PHI 

CR  XVEL 
ERPHI 
ER  YAW 


11 

12 


PSA  ) 


«  GANMAt*< 12-1 > )*BETA**( II- 
*  GAMMA •* (12-1) )*BETA**(It‘ 


WRITE  (LI  ,163)  <VEL .PHI ,AB0  ^VFLME.PHIME .ERXVEL .ERPHI .ERYAW, AAO 
IFc  LO.NF.  A)  WRITE  (L<b,  16$)  xOF.L ,  PHI ,  ABO  ,  XVELME  ,  PRIME  ,  EkXVEL  ,  ERPHI 


l3sViNTIN6E 


R YAW, AAO 


IF 

(IS 

EQ. 

SS 

) 

GOTO 

SOO 

IF 

(IS 

.EQ. 

10 

> 

GOTO 

210 

IF 

(IS 

.  EQ. 

19 

) 

GOTO 

220 

IF 

(IS 

EQ. 

20 

) 

GOTO 

230 

IF 

(IS 

•  EQ. 

37 

) 

GOTO 

240 

E-2.  Listing  of  Calibration  Data  Evaluation  Program  &EVALU 
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m 

032  1 
0322 
0323 
0324 
032S 
03  26 
3327 
0  320 
0329 
0330 
0331 
0  332 
0333 
0334 
033S 
0336 
0  337 
0338 
3339 
034  0 
0341 

.  0342 
0343 
0344 

0  345 
0346 

0347 
0348 
0349 
C3S0 
0351 
Q3S2 
0353 
u.354 
C3SS 
0356 
0357 
0  358 
035^ 
0360 
;>36i 
G3b2 
-!363 
0364 
3365 
0366 
0  367 
0368 
0369 
.,370 
0  371 
0  372 
0373 
0374 
037S 
0376 

.1377 

'378 

379 

0380 
0391 
.»392 
0393 
;» 284 
0  385 

380 
0  307 
‘  398 

,339 

7°0 
J?  1 
.1 2*2 
a?*  3 

0  394 
3  30  5 
.39* 

..  397 

1 

0399 

3400 

0401 

ssts 

0404 
0405 
0406 
J  407 
‘400 
0409 
0410 


Bii1!**”-  46  1  G01° 250 


210  AFU.EC1) 

bf  ill  <  1  > 


u\, 


2HA3 

2Hb3 


lT6$4> 


-  9 


_..ITE  <LO, 

GOTO  260 

220  AFILE( 1 )  *  2HA4 
PFJUE*.  1  >  ;  ?HB4 

WRITE  <  LO , 60  4  > 

GOTU  260 

230  AFILE(I)  *  2HA5 
PFILE< 1)  *  2HBS 
I J I  -  15  - 

WRITE  ( LO .604 ) 

GOTO  260 
240  AFZLE(l)  -  ?HA6 
PFILE(i)  «  2Hb6 
IJI  *  IS  -  36 

WRITE  (LO  >604) 

GOTO  260 

250  AF ILE< 1 )  =  2HA7 


IB 


27 


bf I LE ( 1 ) 

*  2HB7 

IJI 

*  IS  - 

45 

WRITE  <L( 

,604) 

GOTO 

26  0 

IF  ( 

IJI 

.eg.  t 

) 

GOTO 

300 

IF  < 

IJI 

.EO.  2 

) 

GOTO 

31  0 

IF  ( 

\  .1  L 

.eq.  3 

> 

GOTO 

3;>n 

IF  ( 

IJI 

.  EG  .  4 

> 

GOTO 

330 

IF  < 

I  I  I 

•  EQ.  S 

) 

GOTO 

340 

IF  ( 

IJI 

EO  6 

) 

GOTO 

3S!1 

IF  ( 

IJ  l 

.eg,  7 

> 

GOTO 

(60 

IF  ( 

IJI 

,  EO .  8 

) 

GOTO 

370 

IF  ( 

IJI 

.  EQ .  9 

■> 

GOTO 

380 

AF ILE <  3 ) 

•  2H2S 

AF IlE  <  2 ) 

*  2HKP 

COTO 

400 

310  AFILEC3) 
AFIlE<  2) 
GOTO  400 
320  AFILE< 
AFILE<2) 
GOTO  400 
330  AFILE<3> 
AF I LE ( 2 ) 
GOTO  400 
340  AF I LE  <  3  > 
AF ILE (2  > 
GOTO  400 
350  AFILE(3> 
AF ILE ( 2  ) 
GOTO  400 
360  AFILE ( 3) 
AF  ILE  ( .?  > 
GOTO  400 
370  AF I LE ( 3  > 
AF I LE  <  2  > 
GOTO  400 
380  AFILE-' 3) 
AFILE v2' 
GOTO  40 0 
400  ?F ILE 1 2  ) 
LF 1 lE  <  3  ) 
GOTO  02r 
S00  STOP  77^ 
END 


2H20 

2HKP 


2H15 

2HKP 


2H10 

2HKP 


2H05 

2HKP 


2HQ0 

2HKP 


2H05 

2hkn 


2H10 
2hk  N 


2*1  S 
2HKN 


af:lE(? ) 

AF I LE ( 3  J 


<U 


01 


02 

33 


REAL  FfNCTIOA  fnp < norper ,L0EFF . ZX) 

REAL  C'JEFF  (  ?  ■ 

ai  »  corrr ( norder ♦  1 1 

IF  .  NOR DER  F ,  .1*  FOTO  OS 

PO  M  .1  »  1 , NOR  TER . 1 
I  -  NOSJFR  •  1  ■  :  * 

At*  fOtff. r )*:x«a; 

FNP  =  at 
R t  *URN 
"Nit 

R E  FON.'TtLN  FnJ.ncsC-fb  t'OFcr  ;X) 

HEA'.  Z.  F 

SEAL  C0EFFD<6) 

CO  01  1*1 .NORDER, 1 
COEFFO(I)  *  COEFF(l»l)«l 
AJL  _  *  EOFFFIXNORDER) 

NOROR*  NORDER  -  1 

i ft  nordr  eo .  0  )  coro  93 

DO  12  11  ■  1 , NORDR , l 

I  »  < NOR  DR  ♦  1»  -ll 

A*  •  COEFFDf  I  WXSAt 

FND  «At 

RETURN 

END 


Figure  E-2.  Listing  of  Calibration  Data  Evaluation  Program  &EVALU, 
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.4 

I 


APPENDIX  F 


CALIBRATION  TEST  PROGRAM  TEST 

Chapter  5.2  describes  the  test  and  the  test  procedure 
used  to  verify  the  quality  of  the  calibration  in  a  freejet 
experiment.  Although  this  experiment  lacks  the  simulation 
of  high  frequency  flow  vector  changes  like  those  to  be  ex¬ 
pected  in  its  application,  it  seems  to  be  the  most  useful 
check  of  the  calibration  itself  and  the  data  reduction  pro¬ 
cedure.  While  the  set-up  of  the  experiment  and  the  data 
acquisition  procedure  were  described  in  5.2  already,  details 
of  computer  program  &TEST ,  which  is  used  to  perform  the  data 
acquisition  and  the  data  reduction,  will  be  given  herein. 

Like  program  &EVALU ,  this  program  first  reads  the  cali¬ 
bration  coefficient  files  into  two  arrays.  It  then  asks  the 
operator  to  key  in  the  barometric  pressure  in  inches  of 
mercury.  The  data  acquisition  itself  is  performed  in  a  DO- 
loop,  interactively  with  the  operator.  Both  probes  are  set 
to  nine  different  yaw  angles  and  data  samples  are  recorded. 
The  actual  pressure  and  yaw  angle  values  which  are  used 
are  the  averages  of  30  single  samples  each,  in  order  to  ex¬ 
clude  any  influence  of  some  flow  irregularities.  Once  the 
data  is  taken,  the  data  acquisition  system  is  released  from 
the  HP  21-MX  computer  control  and  the  data  reduction  is 
started . 
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The  nine  pressure  values  of  the  A-probe  are  approximated 
with  a  fourth-order  polynomial  as  a  function  of  the  yaw  an¬ 
gle.  From  this  approximated  curve  pressure  values  PSAL, 

PSAR  and  PAMAX  are  derived  which  are  used  to  calculate 
CPAMAX  and  BETA.  The  output  of  the  B  probe  is  approximated 
the  same  way  and  the  pressure  PBMAX  is  calculated  from  this 
curve.  Using  PBMAX  and  the  results  of  the  A  probe,  CPBMAX 
and  GAMMA  are  established.  The  coefficients  BETA  and  GAMMA 
alone  are  used  to  derive  values  of  Mach  number  (or  X)  and 
pitch  angle  (  $  ) .  The  yaw  angle  which  corresponds  to  the 
pressure  value  PBMAX  is  assumed  to  be  the  flow  yaw  angle. 

It  should  be  close  to  zero  since  the  probes  are  aligned  with 
the  free jet  for  a  zero  yaw  angle,  unless  an  "artificial"  yaw 
angle  has  been  superimposed  on  them  as  described  in  5.2 

The  calculated  values  are  compared  to  those  the  freejet 
was  adjusted  to.  In  5.2  the  results  of  these  comparisons 
ware  demonstrated  already. 

Labeled  common  block: 

Common  block  identifier:  Variable: 

DTA2  Xl , Y 


Variable 

Type 

Description 

AAO 

Real 

Flow  yaw 

angle  derived  from 

A  probe 

ABO 

Real 

Flow  yaw 

angle  derived  from 

B  probe 

AKULIT 

Real 

Average  ' 
samples 

value  of  30  A  probe 

pressure 
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Variable 

Type 

Description 

APRESS 

Real 

Single  sample  value  of  A  probe  pres¬ 
sure  reading 

ASL 

Real 

Left-hand  side  yaw  angle  of  A  probe 
output 

ASR 

Real 

Right-hand  side  yaw  angle  of  A  probe 
output 

BKULIT 

Real 

Average  value  of  30  B  probe  pressure 
samples 

BPRESS 

Real 

Single  sample  value  of  B  probe  pres¬ 
sure  reading 

COEF (7) 

Real 

Array  to  contain  coefficients  from 

2-D  approximations 

COEUX (7,7) 

Real 

Array  containing  the  coefficients  of 
the  3-D  approximation  for  the  velocity 

COEUP (7,7) 

Real 

Array  containing  the  coefficients  of 
the  3-D  approximation  for  the  pitch 
angle 

CPAMAX 

Real 

Maximum  pressure  coefficient  A  probe 

CPBMAX 

Real 

Maximum  pressure  coefficient  B  probe 

DP 

Real 

Pressure  difference  for  two  pressure 
values  corresponding  to  two  yaw  angles 
which  are  separated  by  DX 

DPX 

Real 

First  derivative  of  the  function 
pA(a)  -  pA  (a  -  Aa) 

DX 

Real 

Given  spread  in  yaw  angle  between 

PSAL  and  PSAR 

GAMMA 

Real 

Pressure  coefficient 

ICR 

Integer 

Cartridge  reference  number 

IDCB  (144) 

Integer 

Data  control  block 

IDCBS 

Integer 

Control  block  length  (of  IDCB) 

IFILE { 3) 

Integer 

Array  containing  file  name 

Description 


Variable 
ISECU 
ISIZE (2) 
ITYPE 
ICLR ( 3 ) 
NOLF 
PA  ( 9 ) 
PAMAX 
PB  ( 9) 
P3AR0 
PBMAX 
PHI 
PSA 
PSAL 

PSAR 

PTOTAL 

XVEL 


XO 


Xl(256) 
Y (256 ) 
YAWANG 
YAWKUL 


Type 

Integer 

Integer 

Integer 

Integer 

Integer 

Real 

Real 

Real 

Real 

Real 

Real 

Real 

Real 

Real 

Real 

Real 

Real 


Security  code 

Array  to  specify  file  dimensions 
Type  of  data  file 

Command  to  clear  line  above  cursor 

No  line  feed  command 

Array  for  A  probe  pressure  values 

Maximum  pressure  of  A  probe 

Array  for  B  probe  pressure  values 

Barometric  pressure  inches  of  mercury 

Maximum  pressure  of  B  probe 

Pitch  angle  (calculated) 

Static  pressure  equivalent  of  A  probe 

Pressure  reading  of  A  probe  for  a  yaw 
angle  63°  to  the  left  of  the  flow 
aligned  yaw  angle 

Pressure  reading  of  A  probe  for  a  yaw 
angle  63°  to  the  right  of  the  flow 
aligned  yaw  angle 

Total  pressure 

Mach  number  equivalent  dimensionless 
speed 

Starting  value  for  the  iteration  to 
find  PSAL  and  PSAR 


Real  Data  array  for  2-D  approximations 

Real  Data  array  for  2-D  approximations 

Real  Single  sample  of  yaw  angle  reading 

Real  Average  value  of  30  yaw  angle  readings 
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Figure  F-l.  Flow  chart  of  Calibration  Evaluation  program  &TEST 
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6TEST  T»0 0 0 04  IS  ON  CR00026  USING  90QS5  BLKS  R«Q0#0 


ot«oi 
OQ02 
1003 
t)  0 1*4 

uoos 

tm 

ClOB 
goov 
aoto 
^Oil 
9012 
■JO  13 
00 14 

ons 

0Ul6 
0017 
3019 
0  >19 
TO  20 
•ICJi 
0022 
3123 
0024 
0025 
<1026 

302G 
0  029 
'030 
.Oil 
t»032 
•1033 
0014 
0  03S 
3036 

‘in  37 

jose 

0139 
*(1  4Q 

0041 
nn42 
0J4J 
0  0  44 

10  4S 
0146 
1047 
1049 
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FTN4 ,L_ 
C 

c 
c 
c 
c 
c 
c 
c 

fc 

c 
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ROMAN  TEST  (3,99) 


THIS  IS  PROGRAM  TEST  FOR  THE  A-B  PROBE  SYSTEM . 

IT  ACQUIRES  DATA  FROM  THE  A-P  PROBES  MOUNTED  IN  THE  F*EE- 
JET  IN  ORDER  TO  CHECK  THE  UAL ZD  I T v  OF  I  HE  CALIBRATION. 

THE  DATA  IS  NOT  STORED,  ONLY  AN  ONLINE  OUTPUT  IS  AVAI¬ 
LABLE, 


/  DTA2  /  XI. Y 
XI (2S6) , Y<2S6> 

COEF ( 7  >  COEKX (7 ,7) ,C0EKP<7,7> 
PA<9> .PFm 9> . YAM* 9) 

IDCBU44)  .l/lLE(3)  ,  ISIZE (2) 
NOLF,ICLR<3) 
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COMMON 
REAL 

rfal 

REAL 
INTECER 
INTEGER 

DATA  idcbs 
data  itype 

DATA  ICLR 

Data  nolF3 

101  FORMAT  1*  OUTPUT  INPUT  DATA  TO  AMY  OTHER  DEVICE? 

•  OR  LUt  »•/“  “A2) 

102  FORMAT  <  •  DO  YOU  WANT  AN  OUTPUT  OF  TWE  CALIBRATION  COCFF IC IENTS? * 
«/-  ENTER  YES  IF  SO  OR  ANYTHING  ELSE  IF  NOT1") 

103  FORMAT  (  *  DO  YOU  WANT  AN  OUTPUT  OF  THE  CONTROLL  PARAMETERS? -  / •  KE 

MY  YES  IF  SO  OR  ANYTHING  ELSE  IF  MOT  < " » 

104  FORMAT  <//"  - -  -  ““  “ 


/01SS24B  01SS1SB.006S37B 
/  006S$7&  / 


ENTER  NO 


1»1S  FORMAT  (  ■  _  .  _  .  _ 

106  FORMAT  C  l  /  J  -112.6116) 


107  FORMAT  < 1 


-  KULlTE”9X-YAU-> 
“  HIT  CR  » •> 


__  _  “I3,7I1X4Fi4.6> > 

lift  FORMAT  ( •  I  /  J  -  1 12.62 16  > 

109  FORMAT  (*  ENTER  P  BARO  IN  INCHES  «G  •  *) 

110  FORMAT  l  /  *  R  Ay  DATA  *V"  •  A  -  KULIT£  B 

(It  FOVMA7  C  WHEN  YOU  ARE  READY  FOR  YAW  ANGLE  ♦  *12“ 

112  FORMAT  < I3.3<2X,F10 .S) > 

1 1 3  FORMAT ( “  A-PRQBE  APPROXIMATION  RESULTS  :  YAW  =  "31SX ,F9 . 2 > /16X*  PR 
•CSSURE  (INCH  H20)  »  "3 < 3X , F 1 1 . 6 ) /29X *  CPAMAX  *  "F 04/) 

114  F  CIRMA  T  <  /  "  B-P»QBE  APPROX  I  MAT  I  ON  RESULTS  :  YAWO  *  -FS.l*  PRESSURE 

*<  INCH  H20  >  ■  **F  .2/ /) 

US  FORMAT!-  AVERAGE  VALUE  RESULTS  FROM  THE  A-B  SYSTEM- "//SXHBETA"4X"G 
*AMMm-SX"Xw«1-4X-P itch“6X-Ynw"/3(F9.5i ,2<2X ,f 7.2> ) 

149  FORMAT  <  <3AC) ) 

150  FORMAT  (12) 

1111  FORMAT  <"  STATEMENT  *  «I4-  ERROR  •  :  -F12.2*  DETECTED*) 

10H  FORMAT  <  H^1R7M3A0H0T3*  > 


mi 

LI  = 

lqi;lu(  isessn) 

31S2 

oos 

WRITE 

V  L I ,  101) 

NQl.F 

0PS3 

READ 

(LI,  149 

IDUM 

T0S4 

WRITE 

(LI,  149) 

<  ICLR  , 

21-1  , 

1 1 

11SS 

IF  < 

IDUM  .EQ. 

?HNO 

)  GO 

TO 

0  0*^6 

call 

CODE 

OOS7 

READ 

( IDUM, ISO 

)  LO 

josa 

IF  ( 

lo  .r£. 

1  -  GO 

TO  0 

IS 

■)  1  s  9 

IF  v 

LO  .EQ. 

6  >  GO 

TO  0 

15 

J  0  fcO 

Ic  ( 

LO  EQ. 

18  >  GO 

TO  0 

l3 

)1bl 

CO  TO 

oos 

Pi>62 

m  p 

10  * 

1 

-3S3 

0  1*5 

IF  < 

LO  EQ. 

LI  '  LO 

*  0 

3064 

WRITE 

*LI  102) 

30bS 

READ 

(LI  ,149'. 

IPR INI 

1166 

WRITE 

(Lr , to?) 

1  •)  67 

READ 

(LX ,149) 

’.PRINT 

5>* 

•»  0  6  ? 
30  7  0 

.'O’’! 

3<T4 
3  0~6 

>«T7 

>07* 


READ  FTLE  SIFX22  FROM  DISC  INTO  ARRAY  C0EKX(7,7' 


. 

rr:Liv.?»  *  2NF* 

:rIuE (3)  *  jH43 
isecu  -  00 
ICR  "  26 

CALL  OPEN  ( I OCP  .  rEFff  .  rFUE  .  :ar  T*.  I  SEi'i 


ICR  ,  SDJB^ 


Figure  F-2. 


Listing  of  Program 
(Continued  on  next 


to  Test  the  Quality  of  the  Calibration: 
page . ) 


&TEST 
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U  *  IERR  .LT.  0  )  WRITE  (1.1,1111)  JJ ,  I  ERR 
CALL  REACE  ( IDCB, IERR  ,  COEK  X  ,  V8  ,  LE.N , 1 ) 

Al  1elSIe  AltBAdftV*  ‘LI*llll>  JI'IEM 

IF  *  IERR  .LT.  0  )  WRITE  JJ.JERR 

IE  (IPR1N1  .ME.  2HYE)  GOTO  025 


OUTPUT  INPUT  DATA. 


WRITE  (U,1S«)  IEILE 

IE  <  LO  .ME.  0  )  WRITE  (LO.104)  IEILE 
WRITE  (LI , 1  OS)  (11,11*1.7) 

IF  (  LO  ME.  0  )  WRITE  (LO.106)  (11,11*1,7) 

DO  020  11*1,7,1 

IF  (  LO  .ME.  0  )  WRITE  (LO.107)  I 1 , (COEKXl II ,J1) ,J1*1 ,7,1) 
020  WRITE  (LI, 108)  II , ( COEKX( II , Jl ) , Jl*l ,7, 1 ) 


READ  FILE  SIFP22  FROM  DISC  INTO  ARRAY  C0EKP(7,7>. 


025  IFILE(l)  »  2MSI 
IF  ILE(  2  )  *  2MFP 
IFILEU)  •  2M43 

CALL  OPEN  (IDCB, IERR, IFILE , IOPTM, ISECU, ICR, IDCBS) 

IF  (  IERR  .LT,  0  I  WRITE  (LI, lilt)  II, IERR 
CALL  READF  (IDCB, IERR, CQEKP , 98, L£M,1> 

JJ  •  5 

IF  (  IERR  .LT.  0  >  WRITE  (LI, lilt)  IJ,IERR 
CALL  CLOSE  ( IDCB, IERR , 0  > 

JJ  »  6 

IF  (  IERR  .LT.  0  >  WRITE  (LI, 1111)  JJ,IERR 
IF  (IPRIN1  . NE .  2HYE >  GOTO  035 


OUTPUT  INPUT  DATA. 


WRITE  (LI, 104)  IFILE 

IF  (  LO  !n€  0  )  WRITE  <LO,104)  IFILE 

WRITE  <  LI , 1 05  >  (11,11*1.7) 

IF  (  LO  NE.  0  )  WRITE  ( LO ,106)  (11,11*1,7) 

DO  030  1 1*1.7, 1 

IF  (  LO  .HE.  0  )  WRITE  (LQ.107)  1 1 , ( COEK P(Zl,Jl>,Jl*i,7,l) 
030  WRITE  (LI , 100)  I i , (COEKP < l 1 , Jl ) , Jl«l , 7 , 1 > 

035  CONTINUE 


THE  DATA  ACQUISITION  SHALL  BE  PERFORMED  NOW 


wRrre  <Lr,io9> 

READ  <LI.  *>  PDARO 
CALL  (7.2) 

CALL  RhOTE  (  10) 

CALL  RhOTE  (  15) 

WRITE  (10,1001) 

WRITE  <15,1501) 

WRITE  (10,110) 

DO  050  I  ±  1,9,1 
040  WRITE  (LI  .  Ill >  I 

READ  v L I  ,  1 49 )  IDU* 

IF  (  I  DUN  .NE.  2M  )  GOTO  040 
AKULIT  s  0.0 


AKULIT 

YAWKUL 
BKULIT 
DO  045  J 
Y A WANG 

pp^ess 
APR ESS 

AkULlT 


0  .  0 

1,30.1 

SCANR  (15,22,01) 
SCANR  < i5 , 23 . 0 i > 
SCANR  <15.24  ni) 
AMJL  t  T  ♦  APRfcSS 


Figure  F-2.  Listing  of  Program  to  Test  the  Quality  of  the  Calibration:  (.TEST. 
(Continued  on  next  page.) 
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YAUKUL 
045  BKULIT 
PA  <  I) 
PB  <I> 
Y  AU ( I ) 


YAUKUL  ♦  YAUANG 
BKULIT  ♦  PPHESS 
AKULIT  /  30 
BKULIT  ,  30 


PB  (I)  *  BKULIT  *  30 

YAU(I)  *  YAUKUL  /  30 

0S0  WRITE  ( LO  ,U2)  I.PA(X).PBil).  YAW<  1  > 
CALL  CLEAR  <7,i> 

CALL  LOCL  <  7) 


START  DATA  REDUCTION. 


DO  05S  I  -  1.9,1 

Xl(l)  -  YAU  (I)  *  10000 

055  »  *  1  PBAR0  *  13  585  ’ 


FIND  MAX .  OUTPUT  OF  A  PROBE. 


DX  • 

X  0 

9  DP  - 

IF  <ABS( DP ) 
DP  X  - 

*  12.0 
xo  = 

GOTO  060 
5  ASL  * 

ASR  * 

AA0  « 

panax 

PSAL 

PSAR 

PSA  » 

PTOTAL 
FETA 
CPAHAX 
IF  C  IPPINT 
UPITE  1LI.I 
IF  (LO  ME 
9  CONTINUE 


126.0 

-70.0 

(FNP( A .COEF.XO)  -  FNP<4/COEF, (X0*DX> > > 

•  LT .  6.3001  )  GOTO  06S 

-2. OlCOEr (3)*DX-6. 0»COEF( 4)*X0*DX-3. 0*COEF<4>*DX*DX- 
*COEF  <5)*XO*XO*Dx-i2*COEF(S>#XO*DX*Dx-4. 0*COEF ( S ) *DX«*3 
XO  -  DP  /  DP X 

XO 

XO  ♦  DX 

XO  ♦  DX  /  2.0 

FNP<4,C0FF  AAO) 

FNP ( 4 , COFF ’ ASL  > 

FNp<4,COFF  ASR ) 

(PSAL  ♦  PSAR  )  /  2.0 
PAN  AX 

(PANAX  -  PSA  )  /  PAMAX 

(PANAX  -  PSA  >  /  v  PTOTAL  -  PSA  > 

•ME.  2HYE  >  GOTO  070 
13)  ASL .AAO. ASR .PSAL .PANAX .PSAR ,CPAMAX 
0  )  WRITE  (LO , 1 1 3 '  ASL , Aa6 , ASR , PSAL , PANAX ,  PSAR , CP AN AX 


APPROXIMATE  B  PROBE  PRESSURES. 


DO  075  J  =  1,9,1  . 

X 1  (  I  )  a  YAW  (I>  i  tooon 

'  *  ‘  PHAR0  *  13  585  > 

xo  *  6.00 

DP X  *  FND<4.COEF.XO> 

IF  (  ABS<DPX)  .LT  0.00001  )  GOTO  DBS 

XO  «  XO  -  DPX  /(2*C0EF<3>  ♦  64C0EF (4)4X0  ♦  124C0EF ( S ) *X0*X0 ) 

GOTO  080 

Al'O  *  XO 

PhNAX  »  FNP(4  .TOFF , ABO ) 

t  I  PRINT  Nf.  .  2HYF  '  GOTO  090 
WRITE  (  L  I  ,  i  1  4  )  APH  •*’  MNAX 

I F  <  LO  .NE.  0  )  WRITE  (LO  114)  ABO  ,  P  BflAX 
TONTINUE 


CPBNAX  -  (  PpMAX  -  PSA  >  /  (PTOTAL  -  PSA  ) 

GANNA  a  (CPANAX  -  CPFNAX  )  ,  CPAHAX 

XVEL  -  0.3 

PHI  *00 

DO  09$  II*  1,7.1 

DO  095  12-  1,7,1 

XL'EL  *  XVEL  *  (COEKX(  It.  12)  tGANNA*  t  ( 1 2- \ )  >  *B£  T  A  **(11-11 

PHI  *  PHI  ♦  (COEKPdl  .12)  *GANNA**(  12-1  >  >*BETA  **(ll-i' 

PHI  s  PHI  180  /  3  .  14lr’9 

•RITE  (  L I  ,  l  IS  )  r<ETA.  GAMMA  XVCl  PHI.  ABO 

JF<LO  .NE .  0)  WRITE  vLO.liS)  BETA, uANNA. XUEL  , PHI  , ABO 

STOP  77?? 

END 

real  function  fnp<norder .coeff  rx* 

REAL  COEFP-%7> 


Figure  F-2. 


Listing  of  Program  to  Test  the  Quality  of  the  Calibration: 
(Continued  on  next  page.) 


&TEST 


A1  ■  CQFFF  (NORDER+1  > 

IF  (  NORDEft  .EQ  0  >  GOTO  02 

0Q  II  II  «  t , NQRDCP , t 

I  -  NOR DER  ♦  1  -  II 

At-  COEFF(l>eZX#At 

FNP  -  Ai 

RETURN 

END 

REAL  FUNCTION  FND(NORD£l .COEFF . ZX> 
REAL  COEFF  (7) 

REAL  COEFFD <  6 > 

DO  01  1*1 ,NORDER  .  1 
CQEFFD(I>  =  COEFF (  1 +1 )#X 
At  -  COEFFD(NORDER > 

NOR DR-  NORDER  -  1 

IF  t  NOR DR  EQ.  0  >  GOTO  03 

DO  02  II  •  t , NOR  DR  .1 

X  -  ( NORDR  ♦  1)  -I  I 

At  -  COEFFD<I>*ZX*Al 

END  -At 

RETURN 

END 

REAL  FUNCTION  SCANR  (LU,ICHAN,K> 


Close  relay  I CHAN  on  scanner  LU  and  read  The  instrument 
ind icated  by  K ■ 

Authort  Robert  N.  Geopfarth 

Datei  February  31.  1979 

Detailed  program  description  is  available  in  TXCO  log; 
var  xables  are : 

LU  ...  LU#  of  desired  scanner  (6  or  IS) . 

SCHAN  ...  Scanner  channel  (integer). 

1C  ...  Scanner  cnannel  (ASCII). 

K  ...  Instrument  code  (  DUN  -  l  /  Counter  -  2  ). 


#.  Closes  scanner  and  reads  DUN.  counter. 
ioi  Format  <A2>  * 

801  FORHAT  CO 
001  FORNAT  CT3T3") 

20 1  FORNAT  CT"> 

SOI  FORNAT  ("C") 

am 

IC  »  ICON( XCHAN , 0 ) 

WRITE  (LU,  101)  IC 
GO  TO  (01,02)  K 

01  CALL  TRIGR  <10> 

READ  (10.  *>  DUN 

CALL  TRIG*  (10) 

READ  (10,  *)  SCANR 

GO  TO  03 

02  WRITE  (12.1201) 

READ  (12,  «)  SCANR 

03  WRITE  (LU,  001) 

RETURN 

END 

INTEGER  FUNCTION  ICON<I,N> 

IC*  1  ♦N 

IF(  IC.LT . 10)  GO  TO  100 
CALL  CODE 
WRITE! ICON , bO ) IC 
FORHAT< 12) 
rf  Turn 

0  ICON* IC+3Q06Q& 

RETURN 

END 


Figure  F-2.  Listing  of  Progr am  to  Test  the  Quality  of  the  Calibration:  &TEST 


APPENDIX  G 


CALIBRATION  DATA  {CpoB)  APPROXIMATION  PROGRAM  &RES10 


As  shown  in  Fig.  19,  CPBO  is  well  behaved  as  a  function  of 
pitch  angle  and  Mach  number  as  well.  Thus  it  is  approximated 
as  a  function  of  these  two  variables.  Program  &RES10  handles 
this  procedure.  It  is  in  principal  again  the  same  program  as 
SREST8,  like  &REST9 ,  so  that  a  detailed  program  description 
will  not  be  given  here.  However,  it  shall  be  mentioned  here 
that  the  data  which  is  the  basis  of  the  approximation  is 
contained  in  data  file  A3NZW2.  This  is  an  indication  that 
this  file  contains  all  the  data  necessary  to  represent  the 
whole  calibration. 

For  the  evaluation  of  the  quality  of  the  approximation, 
errors  are  printed  out  as  were  for  &REST8 .  These  are  calcu¬ 
lated  as: 


;C?B0 


ioo 


index  m  =  known  from  measurement 
index  c  =  calculated 


The  variation  in  the  order  of  polynomials  for  the  approxi¬ 
mation  was  changed  in  two  DO-loops  also  and  the  one  for  the 
best  error  results  chosen.  Those  coefficients  are  stored  in 
file  MISTCP  on  cartridge  26.  Figure  G-l  shows  the  coefficients 
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and  the  associated  errors.  The  highlighted  area  gives  the 
range  of  Mach  number  and  pitch  angle  which  will  most  likely 
occur.  Thus  the  error  distribution  within  there  is  most 
important. 

Figure  G-2  gives  a  listing  of  program  &RES10.  The  simi¬ 
larities  to  programs  &REST8  and  &REST9  are  obvious,  so  that  no 
flow  chart  or  further  explanations  are  given. 


bRESlO  T=Q0004  IS  ON  CR00Q26  USING  00024  BlKS  R-0000 


PROGRAM  REC10  (3,99) 


This  it  program  RF.S(tor*>  1 0 . 

There  are  some  programs  PEST  ,  which  in  prinnpl<  lo  oil  th« 
*ame  They  r#sior«  calibration  data  of  a  probe  »ato  a  ♦  or  « 
that  con  ust'd  to  appran/iate  This  data  bv  o  ■  a  2 1 or a  * i on 

surf  oc e  . 

The  software  used  for  th*»  surface  approi  mation  is  available 
in  the  Tyrhopr  opu  Is  1  on  Laboratory  binary  1  *t>r  ar  v  (  TPLBL  : 

See  NPS67-HU-(I(1  ICR  for  further  reference 

In  tms  particular  case  the  calibration  data  of  the 

NEU  ft  -  AND  B-PROBLS 

are  approximated  ' 

Cp OB  *  f (PHI  .XVEL) 


COMMON  /  MATRX  /  A  .  B 

COMMON  /  SUMMfc  /  PHI,  XVEL . CP  OH 

REAL  PL0TR(2Sb> . A(4V  49 )  .6 ( 49  >  .  COEFF ( ?  7)0(10  S4  > 

INTEGER  I  DCB  (144)  IF ILE  (  S)  .  ISI*r  ( 2  >  ,  NOCR  (  £)  ,  ILl.R  <  O 
Rfc  Al  XVEl  <  it>  .  lb  >  PHI<  lb, lb).  CP  OB  (lb.  16'  ,  R  *.  1  b  ) 

DATA  P I  /l . 1 4 1 S 9 3 / 

DATA  IF  ILE  /?HAB . ?HN£ ,2HU2/ 

DATA  NOCR  /000033B  .  tl4(j43JB/ 

DATA  ICLR  /01SS24B , OlSSlSB , 006S37B/ 

DATA  ISCCU  /0/ 

DATA  ICR  /2b/ 

DATA  ITYPE  /i/ 

DATA  IGIZE  /3.120/ 

DATA  IDCBS  / l 44 / 

l  FORMAT  (-  SELECT  SFT  OF  COEFFICIENTS  FOR  BEST  RESULTS  •“/"  ENTER  M 
BORDER  AND  NURDER  NOU  :  “ ) 

?  FORMAT < "-<  <  3A2> )  > 

l  FORMAT  (///"  COEFFICIENTS  FOR  THE  CALIBRATION  SURFACE  STORED  IN  FI 
»L£  :  “3A2/ ) 

:  FORMAT  1  <3X ,  1 6 ( bX . 1 2 ) ) > 


FORMAT  I  IX.ir.iM  ix,F-  3>  '313K  .16MX.F7.3) 
format  (,.-/»  Errors  at  each  oofu r 
FORMAT  («3X.IU(\1X,I2)>> 

FORMAT  (1X.I?,*<J»  M1.MI 

FORMAT  >  -  STATEMENT  •  “U  -  ERROR  ♦  14  - 

LI  =  LOCLU(l) 


ENCOUNTERED 


READ  DATA  F ILE  ABNEU 


CALL  OPEN  <  IDCB  ,  IFRR  .  IF  ILE  .  I0PTN  .  ISECU  K  R  .  IDi  BE*  * 
JJ  *  \ 

IF  (  TERR  Lt  A  '  UR  I  Tfi  <  L I  .1 1 1 1  >  JJ.IERR 

CALI  READF  ( I0CB,  ICRR  ,  D  .  10O0  L t.N  .  i  t 
U  =  ? 

If  (  IFRR  LT  0  )  WRITE  'Ll  ,1111'  JJ.IERR 

■  ALL  CLOSE  <  IDCD,  IFRff  ,  0  ' 

J  ‘  * 

IF  (  TERR  .LT  .  0  1  URITC  iLl.llil'  J  '•  URR 

It  --  0 

1)0  00^  7  x  \  0  1 


IF  <  TERR 

I  t 

DO  no^  7 

dii  do*  : 

I  * 

XVEL  1  I  J  • 
Tc  '  J  LU 
PHI  if,Tt 
CD  OB  >1.0 
NMAl'M  •  r, 
NPITCM  =■  v 
CON T  I NL*’ 


*1.-1 
r  D  (  3  I  '  ) 

O  '  D  <  4  I  J  >  =-  p  l  4  U  . 
=  D  (  4  .  I  )  >  *  PI 
=  Dir  I  * ' 


cali  jiati  calibration  '•\,bca1*  coe  Fr  ■  lnt; 


Figure  G-l.  Listing  of  Program  to  Approximation  Cp  _  Values:  &RES10 
(Continued  on  next  page.)  OB 
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I 

l 


0079 

in  -  o 

0080 

DO  060  MU 

■ 

1,6,1 

0081 

DO  060  NU 

m 

1,6,1 

ms 

0084 

015 

MS 

CONTINUE 

a 

> 

Z 

0085 

DO  020  I 

jt 

1,7,1 

0086 

DO  020  J 

* 

l  ,7  ,  t 

0087 

0098 

0089 

020 

COEFF ( I  J  > 
H=MORDER-*-l 
M-NGRDERM 

u 

0  .  0 

0090 
0091 
0  092 
0093 
0094 
1)095 
0096 
0097 
0098 
0099 
QlOQ 
0101 
0102 
0103 
0104 
OIOS 
0106 
0107 
0108 
0109 
0110 
0111 
3112 
0113 
0114 
0115 
0116 
0117 
0118 
0119 
0120 
0121 
0 122 
0123 
0124 
0125 
0126 
0127 
0120 
0129 

sm 

3132 
0133 
0134 
0  135 
0  136 
0137 
0138 
0  139 
ni40 
0141 
0147 
0143 
0144 
0145 
0146 
0  1  4^ 

0148 


call  conat  <a,b,m,n,niiach,npitch> 

NFGUS-MtN 
CAuL  tLGJ  (NEQUS) 

I  1-0 

DO  02S  I  -  1,H,1 

DO  02S  J  *  l.N.i 

II  *  I { ♦ { 

02S  COEFF ( r . J)*  8(11 ) 

IF  (  I J I  . ME .  1  >  GOTO  030 


IFILE (  1  ) 
rFIC£<2) 
IFILF<3> 


2HMI 

2HST 

2HCP 


CAU-  CREAT  ( IDCB  ,  IERR , IFILE , ISI7E,ITYPE , ISECU , ICR , IDCBS) 

JJ  -  4 

IF  (  IERR  .LT.  0  >  WRITE  (LI, 1111)  JJ.IERR 
CALL  OPEN  (IDCB, IERR, IFIlE, I  Of*  TN  ,  ISECU  ,  ICK  ,  I DCBS  > 

JJ  *  5 

IP  (  IERR  LT,  0  '  WRITE  (LI. 1111)  J J  ,  IERR 
CALL  WRITF  ( IDCB , 1 ERR , COEFF , 98 > 

JJ  •  6 

IF  (  I£RR  .LT.  0  >  WRITE  (LI  ,1111)  JJ,IERR 
CALL  CLOSE  (IDCB, IERR, 0> 
jj  -  7 

IF  (  IERR  .LT,  0  )  WRITE  (LI, 1111)  JJ,IERR 
WRITE  (6,601)  IFILE 
030  CONTINUE 

WRITE  (6.605)  (J,J-i,N,i) 

DO  035  I  -  i,M,l 

035  WRITE  (6,606)  I . ( COEFF ( I . J > , J=1 , N , 1 ) 

WRITE  (£3.605)  <J,J-l,N,l> 


OVERWRITE  DATA  ARRAY  WITH  CALCULATED  DATA 

WRITE' (6,634) . 

WRITF  (6.602)  (J . J=1 .NPITCH.l ) 

DO  050  I  =  I.NnAch.I 

DO  045  J  -  l.NPITCH.l 

5UM  =  0 . 

DU  040  I i  =  1  ,M  ,  1 
DO  040  J\  -  l.N.i 

0  40  SUN-SUN* « COEFF v 1 1  . Jl )#XVEL  < I , J  > •*( J 1  - 1 ; > *PHI 
04^  R(  J  )S(  (CP9BC  I  J  )  -SUN  )  /f.POBt  I  J'HIUO 
050  WRITE  (6,633)  I  ,iR  ;J  ’  .J*l.NPlTCH,l> 

WRITE  ( 6 , 6 02 )  w  ,  J  =  t , NP I T t H  1  . 

IF  (1JI  EW-  1  )  GOTO  f 65 

060  CONTINUE 

WRITE  U  1,101* 

R t  AD  (Li  *)  nORDES , NORDFR 
X  J  I  = 

GOTO  015 

065  STOP  7 "'77 

END 


(  I  .  J  >**( J 1 -1  > 


Figure  G-l.  Listing  of  Program  to  Approximation  CpoB  Values: 


&RES10 


153 


APPENDIX  H 


TEST  DATA  ACQUISITION  PROGRAM  &ABKUL 

Program  &ABKUL  is  rather  complex.  The  amount  of  data 
gathered  and  stored  is  quite  extensive.  Since  the  data  re¬ 
duction  procedure  is  faster  if  only  one  file  contains  all 
data,  the  use  of  a  single  data  file  seems  to  be  justified. 

Before  any  data  acquisitior  is  performed,  the  file  to 
contain  the  data  is  created  under  a  name  given  by  the  opera¬ 
tor.  This  way  it  is  ensured  that  there  is  sufficient  space 
on  the  cartridge  to  store  the  file.  Once  this  is  done,  the 
data  array  (DATA ( 20 , 256 ) )  is  preset  with  zeros  and  the  inter¬ 
face  bus  and  devices  are  set  to  remote  control.  The  first 
part  of  the  data  acquisition  is  for  the  first  on-line  cali¬ 
bration.  Both  Kulite  probes  are  at  the  same  radius  as  the 
rotor  exit  combination  probe  and  all  probe  yaw  angles  are 
fixed  to  the  same  angle  given  by  the  combination  probe.  This 
one  is  assumed  to  be  the  time  averaged  flow  yaw  angle.  The 
reference  pressure  on  the  back  side  of  the  Kulite  transducers 
is  changed  to  a  known  value  and  a  set  of  data  is  recorded. 
This  data  includes  the  pressure  readings  of  the  Kulite  probes 
and  their  reference  pressure  as  well  as  all  the  information 
available  from  the  combination  probe.  Once  this  data  is 
collected,  the  Kulite  probe  reference  pressure  is  changed  to 
another  value  and  another  set  of  data  is  acquired.  This 


procedure  is  carried  out  for  a  total  of  four  different  refer¬ 
ence  pressures,  allowing  sufficient  time  after  each  pressure 
change  for  the  measuring  system  to  adapt  to  the  new  pressure. 
After  the  last  pressure  is  applied,  the  reference  pressure  is 
reset  to  barometric  pressure  and  the  data  acquisition  for  the 
first  on-line  calibration  is  completed.  During  the  data 
acquisition  the  recorded  data  is  printed  out  immediately  so 
that  its  quality  can  be  evaluated  right  away. 

Before  the  acquisition  of  high  speed  data  is  performed, 
the  operator  is  asked  to  specify  the  number  of  yaw  angles  he 
wants  the  Kulite  probes  to  be  moved  to.  A  maximum  of  nine  is 
possible  and  this  number  should  always  be  favored  to  ensure 
sufficient  data  to  cover  a  range  of  160°  in  yaw  angle  as  ex¬ 
plained  in  6.3.  The  program  asks  the  operator  to  set  both 
Kulite  probes  to  the  first  yaw  angle  and  to  initiate  the  data 
acquisition.  In  a  first  DO-loop  data  from  the  type  A  probe 
is  gathered  for  256  consecutive  circumferential  positions. 
Each  of  the  256  values  is  the  average  of  40  single  samples 
which  are  acquired  on  consecutive  revolutions.  In  a  second 
DO-loop  the  same  kind  of  data  is  acquired  from  the  B  probe. 
Since  the  two  probes  are  mounted  on  the  compressor  case  wall 
separated  by  270°  circumferentially,  the  trigger  numbers 
where  the  data  acquisition  starts  are  separated  by  a  number 
of  1728  cts.=270°  for  the  two  probes.  (The  trigger  device 
splits  360°  up  into  2304  single  counts.  Both  probes  acquire 
data  for  256  counts,  40°  respectively.  Since  the  rotor  has 
18  blades,  two  blade  passages  are  covered.) 
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When  the  second  DO- loop  is  done,  steady  state  data  from 
the  combination  probe  and  the  Kulite  probes  is  acquired.  This 
data  is  of  the  same  kind  as  that  for  the  on-line  calibration 
data  and  is  in  general  very  helpful  for  checking  purposes.  It 
is  printed  out  as  soon  as  it  is  acquired.  From  the  high  speed 
data  the  overall  average  values  for  all  256  positions  from  A 
and  B  probes  are  derived  and  printed  out  also. 

The  DO-loop  is  continued  by  the  operator  initializing  the 
acquisition  for  another  yaw  angle  setting  of  both  probes. 

When  the  data  for  all  desired  yaw  positions  is  acquired, 
a  second  on-line  calibration  is  performed.  The  results  are 
printed  out  immediately  so  that  they  can  be  compared  to  those 
from  the  first  calibration  and  obvious  errors  can  be  detected 
right  away.  From  the  two  on-line  calibrations  slopes  and 
intercepts  are  derived  for  both  probes  as  described  in  6.3. 

Finally  the  data  is  stored  in  the  assigned  file. 

Figure  H-l  gives  a  flow  chart  of  program  &ABKUL,  while 


Fig.  H-2  is  a 

listing . 

Variables 

TYPe 

Description 

AVRGA 

Real 

Average  value  of  A  probe 

output 

AVRGB 

Real 

Average  value  of  B  probe 

output 

BUFR( 1664) 

Integer 

Buffer  array 

DATA(20, 256) 

Real 

Data  array 

DCA 

Real 

DC-level  reading  of  A  probe 

DCB 

Real 

DC-level  reading  of  B  probe 
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Variables 

1X21 

Description 

DE 

Real 

Voltage  difference  between  combination 
probe  and  reference  temperature  probe 
thermocouple 

E 

Real 

Voltage  reading  of  combination  probe 
thermocouple 

FSVLTG 

Real 

Calibration  factor  Kulite  probe 
reading 

IBUFF (99) 

Integer 

Array  for  Kulite  sample  values 

I BLADE 

Integer 

Number  of  compressor  rotor  blade  pairs 
to  be  investigated 

ICLR(3) 

Integer 

Command  to  clear  line  above  the  cursor 

I COUNT 

Integer 

Number  of  acquired  data  points  (1 
through  256) 

ICR 

Integer 

Cartridge  reference  number 

IDCB  (14  4) 

Integer 

Data  control  block 

IDCBS 

Integer 

Data  control  block  length 

IDUM 

Integer 

Dummy  variable 

IFILE ( 3 ) 

Integer 

Array  containing  file  name 

IL 

Integer 

Total  number  of  words  stored  in  data 
file  (two  words  for  one  value) 

ISECU 

Integer 

Security  code 

IRPM 

Integer 

Rotational  speed  derived  from  trig¬ 
gered  measurements 

ISIZE (2) 

Integer 

Array  to  specify  fill  dimensions 

ITYPE 

Integer 

Type  of  data  file 

LI 

Integer 

Input  device  number 

LO 

Integer 

Output  device  number 

MASK 

Integer 

Masking  variable 

NOLF 

Integer 

No  line  feed  command 
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Variables 

Description 

PBARO 

Real 

Barometric  pressure 

PCAL 

Real 

Calibration  pressure  for  the  Scanivalve 

PREF 

Real 

Reference  pressure  for  the  Kulite 
probes 

PI,  P23,  P4 

Real 

Pressure  readings  for  the  combination 
probe 

RPM 

Real 

Compressor  speed  as  read  from  counter 

SECON 

Real 

Intercept  of  either  A  or  B  probe 
calibration 

SLOPE 

Real 

Slope  of  either  A  or  B  probe 
calibration 

TARE 

Real 

"Zero  drift"  for  Scanivalve  transducer 

X  (4) 

Real 

Array  for  on-line  calibration  data 

XIMA 

Real 

Immersion  of  A  probe 

XIMB 

Real 

Immersion  of  B  probe 

XIMC 

Real 

Immersion  of  combination  probe 

Y  ( 4) 

Real 

Array  for  on-line  calibration  data 

YAWA 

Real 

Yaw  angle  of  A  probe 

YAWB 

Real 

Yaw  angle  of  B  probe 

YAWC 

Real 

Yaw  angle  of  C  probe 

YAWP 

Real 

Total  number  of  yaw  positions  for 
the  A  and  B  probe 
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Figure  H-l.  Flow  Chart  of  Data  Acquisition  Program  &ABKUL. 
(Continued  on  next  page.) 
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Figure  H-l.  Flow  Chart  of  Data  Acquisition  Program  &ABKUL 
(Continued  on  next  page.) 


4A&KUL  T-00004  IS  ON  CR00026  USING  00061  BLKS  R»QQQ0 


0001 

U002 

0003 
'JO  04 
0005 
0006 
J  C  07 
0  0  08 
1009 
0010 
a  ;i  1 1 
0012 
0013 
0014 

oo  is 

3016 
0017 
3018 
C  0  19 
•>020 

0022 
0023 
0024 
3  025 


FTN4,L 

E 

C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


PROGRAM  ABKUL  <3»??> 


This  is  proqran  ABKUHitt). 

It  performs  an  online  calibration  of  the  A  and  8  kuh tenr«btf« 
and  a  data  acquasitian  for  7  yaw  positions  of  those  probes  as 
well. 


Author  » 
Date  i 


Friedrich  Neuhoff 
July  28,  1981 


NOTE  »  IF  THE  mCm  WILL  BF  REMOVED  FROM  THE  STATEMENTS 
CONTAINING  ASTER ISKO  IN  COLUMN  71  AND  HIGHER, 
NO  STEADY  STATE  DATA  WILL  I‘E  ACQUIRED  AND  ONLY 
ONE  SET  OF  HIGH  SPEED  DATA  WILL  BE  TAKEN* 


DIMENSION  IBUFF(  9«?)  ,  ICCBt  1^2) 

REAL  DAT A( 20 ,256) ,X<4) , Y(4> , AVRCA , AVRCB 

INTEGER  BUFR  (1664) 


3  026 

DATA 

10CBS  ’ 

/ 

144/  ' 

m 

DATA 

DATA 

/ 

/ 

w, 

0029 

DATA 

IT^PE 

/ 

1/ 

3030 

DATA 

IL 

/I 0240/ 

m 

DATA 

DATA 

/ 

/ 

80/ 

129/ 

3  033 

DATA 

NOLF 

/ 

006S37B/ 

00  34 
".035 

DATA 

DATA 

m 

/ 

/ 

01.5524B  . 

1 77/006/ 

U  036 

DATA 

F5UITG 

/ 

.  1E0  1/ 

3  037 
3038 
0  039 
040 
•-041 
0  042 
.  043 
044 
.045 
3  946 
•047 
’048 
049 
350 
j  051 
;3S2 
-.053 
:054 
055 
056 
357 
050 

-59 

*  U  6  0 

Jbl 

‘•62 

063 

0t,4 

365 
•  06 
•*62 
368 
69 
,70 
T?t 


175 


m 

*78 


101 


102 


1  03 
104 


105 

106 


107 


108 

10? 

110 


112 

148 

14? 

toot 

1201 

1501 


FORMAT  (*  This  is  program  ADKULl i te ) . " / *  It  First  performs  a  data 
tacguasi  non  for  an  online  calibration  of  the  A  ana  B  "/"  probe*."/ 
***  Then  it  takes  paced  data  fro*  the  prooes  at  7  yaw  posi 

Stlons  V*  interactively  with  the  operator.  At  the  end  another  set 
»of  data  for  an  online**/"  calibration  is  accquired  •  **//•  The  whole  r 
taw  data  is  stored  in  one  file'") 

FORMAT  <////•  The  online  calibration  shall  be  performed  now1"/"  It 
*  allows  four  different  reference  pressures '  "/ / **  When  the  first  ref 
*. pressure  is  ooplied  correctly,  key  Gl)  ’  **  > 

FORMAT  (///,  36X  "  Online  ca  1 1  hr  a  1 1  on  '*/  V > 


r  I..B  nn  i  ^  /  .jo*  uni  tut  iihoii  /  /  > 

F  OR  MAT  ( 1  3X  *  Inner  .  c  orb  .  yaw  c  o«b  .  "  1  0  X  *P  1  “9*  "*»  2  3  "  l  QX*»»e  " /5*  "P  o  in  t 
«#  lwner.A  pr  .  vaw  A  pr  .  *yX  "DCA*8X  "Pref  *1  OX  “T  t  ■  'l3X  "I«>s*r  .  H  pr  . 

*  ynw  E»  pr  .  C9X  "DCt<  *?X  "R PM  "9X  “D  r  ?  > 

FORMAT  ( /12X  ,5<2X,Fta  .  6 > /SX  .  1 2 . 5X ,5 < 2X ,F 1 0  6>  /  l?t  ,5<  ?.%  ,F  10  6>» 
FORMAT  i "  Apply  the  nett  ret.  press,  and  key  CO  wnen  the  condition 
ts  are  stable  /enough  for  the  n«*t  reading'*) 

FORMAT*"  1st  online  calibration  done'*/"  $**et  the  re f  pre«s  far 
t  the  high  speed  da»a  acauasi t i on • "/ -  Enter  the  n.mber  of  different 
s  yaw  anqles  von  want."/  “  Hit  CR  qft.»r  that  »o  rontmue*") 

FORMAT! 7///36X "Aver age  values  fro*  paced  run"//  • 

FORMAT  <"  Adjust  both  kulite  probes  to  yaw  angle  nw«b»^  "12."  Key 
*CO  when  this  i%  done*") 

FORMAT* /24X"A  probe  *30X"B  probe  */26Y“Slooe*6v "InterceP*  •  "l?*"51o 
tpe  "6X  "  In  tercen  t  "/47k  "  t "/ "  i*t  ca  1  ibra  1 1  on  **?  (  3  <  Fi;.  >  •  e  *?(3x  *■  12 
S  .  o> /47X*'S"  /  "  2nd  cal  ibration*2(  3X  ,Fl?  6‘"  t  "2  •.  Tx.riJ  r»‘ 

FORMAT  <•  becond  online  calibration  done'"'"  Re<et  the  ref  ores* 

«  and  consider  the  data  acquasition  to  ne  corp  "  '*  Compare  th 

*e  results  of  the  two  online  calibrations  ana  r.neck  for  I 

*f  the  drift  can  be  accepted,  key  in  the  file  na«e  vou  want  th*  da» 
«a*/"  to  be  stored  in'"' 

FORMAT  <•  Averaged  values  paced  output  A  probe  "FlO.S"  D  orobe 

*  "flO.S) 

FORMAT  ("  Output  input  data  to  anv  other  device'  Cater  MO 

*  or  LU •  « "/*  "A2 l 

FORMAT  i(3A2>> 

585SST 

FORMAT  i *c l R  7M3A\ HO  T  3" ' 

FORMAT  ;-c*4G6T" 

FORMAT  . "C A"v 


1111  FORMAT  ’*  STATEMENT  »  M*"  ERROR  •  "  I  **  '  "NCCK'N  "ERF." '  ' 


Figure  H-2. 


Listing  of  Data  Acquisition  Program  &ABKUL. 
(Continued  on  next  page.) 


MH 
0161 
0162 
0163 
01o4 
0 1 65 
0166 
0167 
0168 
0169 
3170 
0171 
0  t  72 
0173 
0174 
0  1  75 
0176 
0177 
0178 
U  1  79 
0180 
0181 
0182 


0184 
0185 
0186 
0187 
3188 
0189 
0190 
0191 
0192 
0193 
0194 
0  1 95 
0196 
0197 

0198 
0199 
0200 
0201 
0202 
0203 
020  4 
0.205 
0206 
0207 
3209 
J20V 
0210 
021 1 
0212 
3213 
0214 
02t  5 
0216 
0217 
02l  P 
021* 
0220 
0221 
0222 
or:  i 
122 -* 
0  225 
0  226 
022*7 
0  2  20 
72'59 

0230 
023 1 

m 


04 


05 


DATA(  1  ,JMO>  *  YAUA 
DA TA<  1  ?j9li  )  *  XIME< 

DATA<t>J*l2)  -  YAUB 
OAT A( 1 ,  J*13>  *  PRLF 

DATA< 1 , J*&4)  *  E 

DATA<i;j*l5)  -  PE 
DATA! 1 . J+16)  ■  DC A 

DATA < 1 , J>  1 7 )  =  DCB 

WRITE  (LI. 1051  XXhC,YAUC,Pi ,P23,P4»I ,XIMA,YAUA,DCA,PREF ,E ,XIMB, 
*YAWB,DCB , 6Ptt.DE 

IF  (  LQ  HE.  0  )  WRITE  (L0,t05>  XIMC , Y AUC , P t ,P 23 ,P 4 , I , X IMA , Y AUA , DC 
*A.PREF,E.XIMB.  YAUB. DCS*. RPM,DE 
IF  (  .J  .  £q  hi  >  COTO  ($5 
IF  <  J  . EQ. 141  >  GOTO  10 
WRITE  iLl,106> 

READ  (LI, 149)  IPUM 

WRITE  (LI, 149)  (  ICLR. 11*1,3) 

IF  (  IDUM  .HE.  2HC0  )  GOTO  04 
J  -  J  ♦  20 
I  -  I  ♦  1 
COTO  03 
WRITE  <LI,107> 

READ  (LI.  *)  YAWP 
YAWP  *  YAWP  «  2 


06 


WRITE  (LI. 108) 

IF  <LO  .HE.  0  >  WRITE  ( LQ ,108) 
WRITE  (Ll.104) 

IF  iLO  . Nt .  0  )  WRITE  ( LO ,104) 
DO  09  JI  -  2, YAWP, 2 
JJ  -  JX  /  2 
WRITE  (LI, 109)  JJ 
READ  ( L I , 1 49 ) I DUH 
WRITE  (LI, 149)  '  ICLR,I!*1,3) 
IF  (  IDUM  HE.  2MG0  )  GOTO  U6 
AVRGA  ‘  ~ 

ICOUNT 
STAR  f 
STOP 

DO  61  n 
ICOUNT 
I  BLADE 


0  .  0 
-  0 

*  256 

*  256  ♦  ?c6 
-  START^STOP , 1 

*  ICOUNt  *  l 

_ _  _  II  ♦  1 0  0  0  0  0  u 

CALL  EXEC  (3,19) 

CALL  EXEC  (1 , 19, IRPH.l . TKLADE) 

CALL  EXEC  (l,20,IfcUF*, io,U,l>) 

RBUFF  *  Q.tt 
DO  62  T 1  *  1.30.1 

I  BUFF  1  J  i  >»  IAnD(  lt»UFP(  Ji)  .MASK) 

62  RBIJFF  »  FLOAT  i  IM)FF(it)  )  /  32760  ♦ 

DATA<JI , ICOUNT )  *  ( (RBUFFPFSVLTG >/30 > 

AVRGA  *  AVRCA  ♦  DATA  (JI, ICOUNT) 

61  CONTINUE 

AVflGA  =  AVRGA  /  2S6 

C  DO  5454  I  *  1.32.1 

C545^  WRITE  16.1313'  • J ,DA7A( JI . J »  J  *  1,256.32 
C 1 3 1 3  FORMAT  <6  *  DATAi fcX3">**F4. ) 

WRITE  (1,22?)  AVRCA 
222  FORMAT (-  AVRGA  =  "FI?  6» 

AVPGB  =  0 . 0 

ICOUNT  *  ft 

START  *  1696 

5 TOp  *  1696  ♦  2^6 

DO  64  II  =  START^STUP  ,  1 
ICOUNT  «  ICOUNT  ♦  1 

I  blade  «  it  ♦  tooooo  i< 

CALL  EXEC  <3.19* 

CALL  EXCC  (1, 19,19PM  1  .IBLArE) 

CALL  EXEC  ( 1 ,20 , I  HUFF . 30 , 1  , 0 > 

RBUf p  *  0.0 

DO  63  Ji  *  l  30.1 


RBUFF 


0??4 

I  PUFF  . J 1  )  - 

lANP  t 

I  BUFf  »  J 1  >  , MASK  * 

0235 

63 

RFL'RF 

flCAT 

ItUFR‘4l'  '  32"»6P 

'-'3b 

DA'Av  JIM  , 

)  *  W  RBl-FF  tr  GVLTG  )  /  3^ 

,)*V* 

AVRGF 

•  av»C(<  ♦  Data  1 J  •  1 

P23H 

*■*  4 

CONTINUE 

♦  RBUCF 


Figure  H-2. 


Listing  of  Data  Acquisition  Program  &ABKUL . 
(Continued  on  next  page.) 
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Figure  H-2. 


Listing  of  Data  Acquisition  Program  &ABKUL 
(Continued  on  next  page.) 
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r 


&M9 
0320 
0321 
0  322 
0323 
0  324 
032S 
C  326 
032? 
0328 
0329 
3330 
'331 
<1332 
0333 
0334 
0  335 
0316 
0337 
0333 
0339 
3340 
0341 
034? 
0343 
0344 
0345 
0346 

0347 


14 


KUiulV&tf 

DATA(  1  .  iat )  «  SE.CON 
DO  14  Z  *  1.4,1 

J  -  <  t -1 1  *  20  ♦  9B 

X<I>  *  0ATAU  ,  J) 

33  »  3  -  4 

Yd)  *  DATA<1,JJ> 

call  CURVE  (4.X .t .SLOPE, SECOH) 
data(i,j9o)  -  Slope 

DATAtl .191)  •  SECON 

write  (l i.uo) 


WRITE  CLl.110)  (  DATA(1 .1) .DATA(1 .1*1 > .1  *  160,190.10) 

IF(LO.MEO)  WRITElLQ,llO>  (  DATAC1.I) ,0ATA<l,I*t ) ,X  *  160,190,10) 


WAITE  (Ll  ,111) 

READ  (LI, 149)  IFILE 

CALL  CRE&T  ( XDCB, IERR,IF1LE,ISIZE,ITYPE, ISECU , ICR , XDCfrS) 

l&  (  IERR  .LT.  a  >  WRITE  (1 ,1111)  U.IERR 

CALL  OPEN  ( I DCB , I  ERR , IFILE. 2 OP  TN,  2SECU , ICR, IbCBS) 

IP  l  IERR  LT,  0  1  WRITE  (1,1111)  II, IERR 
CALL  WRITE  < I DCB , IER R , DATA, IL ) 

II  *  3 

IE  (  IERR  .LT.  0  )  WRITE  (1,1111)  II, TERR 
CALL  CLOSE  <IDC6,ICRR,0> 

II  «  4 

IF  <  IERR  .LT.  0  )  WRITE  (1,1111)  II, IERR 

STOP  7777 

END 


Figure  H-2.  Listing  of  Data  Acquisition  Program  &ABKUL . 
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APPENDIX  I 


PROCESSING  PROGRAMS  &SPLIT  AND  &WAVE  FOR  TEST  DATA 

As  stated  in  6.3a  plot  of  the  acquired  high  speed  data  is 
very  desirable  since  it  represents  the  fastest  way  to  judge  the 
quality  of  the  data.  As  the  graphics  software  requires 
much  storage  space  within  a  program,  it  is  not  possible  to 
read  the  complete  data  file  into  a  plot  program.  A  utility 
program — &SPLIT--has  been  created  which  splits  the  data  array 
into  two  smaller  arrays  containing  either  A  or  B  probe  data. 
These  arrays  contain  the  data  for  the  on-line  calibration  and 
steady  state  also.  They  are  both  stored  under  different  names, 
which  are  operator  input. 

Since  program  &SPLIT  is  a  very  short  and  simple  program, 
only  a  listing  is  given  in  Fig.  1-1.  Explanations  are  given  as 
needed  within  the  listing.  The  two  newly  created  files  are 
stored  on  the  same  cartridge  as  the  original  raw  data  file. 

Program  &WAVE  provides  means  to  read  the  smaller  data  files 
and  to  plot  their  contents.  If  the  variable  POS  is  assigned  to 
be  the  circumferential  position  of  the  probe  readings  where  the 
starting  position  is  set  to  1  and  the  end  position  to  256,  the 
pressure  distribution  can  be  expressed  as  a  function  P  =  P  (pos) 
for  all  nine  yaw  angles.  These  functions  can  be  plotted  by 
program  &WAVE.  The  plot  is  a  straight  line  connection  of  all 
points . 
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As  mentioned  in  6.3  program  &WAVE  serves  two  purposes: 
plotting  Kulite  data  from  an  existing  file  and  acquiring  data 
from  any  of  the  16  A/D  channels  and  plotting  it  right  away. 

The  decision  as  to  which  of  the  two  options  shall  be  used  has 
to  be  made  first  by  the  operator.  If  it  is  desired  to  plot 
data  from  a  data  file,  the  operator  has  to  key  in  the  file 
name  and  the  cartridge  reference  number.  This  file  is  then 
read  into  a  data  array.  For  each  probe  yaw  angle  setting 
there  is  one  pressure  distribution  P  =  P  (PCS )  and  the  operator 
is  asked  to  specify  the  one  he  wants  to  plot.  The  choice  of 
plotting  on  the  CRT  screen  or  the  X-Y  plotter  has  to  be  made 
as  well  as  whether  a  whole  new  frame  for  the  plot  is  needed. 
Without  further  input  the  graph  is  developed.  Other  data  from 
the  same  file  can  be  plotted  without  rerunning  the  program  or 
it  can  be  stopped  at  this  point. 

If  the  second  feature  of  the  program  should  be  exercised, 
it  has  to  be  specified  at  the  very  beginning,  when  :ske  for 
this  decision.  An  A/D  channel  number  has  to  be  enter-'  i  which 
corresponds  to  the  Kulite  transducer  that  shall  be  observe:. 
The  number  of  samples  to  be  taken  at  each  of  the  256  positions 
also  has  to  be  put  in.  This  initializes  the  data  acquisition 
process.  Once  all  the  data  is  acquired,  the  operator  has  to 
decide  whether  he  needs  a  new  frame  or  not  and  where  he  would 
like  to  have  his  plot  (CRT  or  X-Y  plotter) .  As  soon  as  the 
plot  is  dumped,  the  program  can  either  be  stopped  or  started 
from  the  very  beginning. 
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Figure  1-2  shows  a  flow  chart  of  program  &WAVE ,  while  Fig. 


1-3  is  a  listing. 


Variable 

Type 

Description 

AD 

Integer 

Dummy  Variable 

CHANL 

Integer 

A/D  channel  number 

DATA (11, 256) 

Real 

Data  Array 

FSVLTG 

Real 

Calibration  factor  for  Kulite  probe 
reading 

IBUFF (99) 

Integer 

Array  for  Kulite  sample  values 

I  BUM 

Integer 

Dummy  variable 

ICR 

Integer 

Cartridge  reference  number 

ID 

Integer 

IDCB ( 144 ) 

Integer 

Data  control  block 

IDC3S 

Integer 

Data  control  block  length 

IDUM 

Integer 

Dummy  variable 

IFILE ( 3 ) 

Integer 

Array  containing  file  name 

IGCB (192) 

Integer 

Graphics  control  block 

IL 

Integer 

Total  number  of  words  stored  in  data 
file  (two  words  for  one  value) 

ISECU 

Integer 

Security  code 

ISIZE (2) 

Integer 

Array  to  specify  file  dimensions 

ITYPE 

Integer 

Type  of  data  file 

LI 

Integer 

Input  device  number 

LU 

Integer 

Output  device  (screen/plotter)  number 

MASK 

Integer 

Masking  variable 

N 

Integer 

Number  of  samples  to  be  averaged 
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Variable 


"I 


RBUFF 

RBCJFO 

X ( 256 ) 
Y ( 256 ) 


Type 

Description 

Real 

Real  value 

of  single  sample 

Real 

Sum  of  all 
position 

real  value  samples 

Real 

Real  data 

array 

Real 

Real  data 

array 
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Figure  1-1.  Listing  Program  to  Split  Up  Big  Raw  Data  Array  From  A-B  Probe 
Into  Smaller  Arrays:  &SPLIT . 

(Continued  on  next  page.) 
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oo?y 
0  0  80 
0  081 
0082 
u  083 
0  084 
0385 
0  086 
0  087 
0  0  88 
0  089 
0090 
3)91 

ij092 

0  0  93 

J094 

)  095 
0  096 
o  97 
JO  98 
0099 
0  t  00 
2101 
‘2132 
0103 
0  1 0  4 
OlOS 
C  1  36 
0107 
Ml  08 
0109 
Jlto 


READ  B-PROBE  DATA  INTO  SEPARATE  ARRAY 


07 


DO  07  J 

DO  07  I 

J1 
J2 

DATAS< 32, I ) 
DAT  AS \ 1  .1) 
DATASUil) 


1>  9,1 

1 ,256 .1 
l  J  4  2  > 
J  ♦  1 

data< Jl , I ) 

DATA(1  .1) 
DATA <20  I > 


READ  FILENAME  FOR  B-PROBE  DATA  AND  STORE  B-PROBE  DATA. 


WRITE  <1,104) 

READ  1 ! , 1 49  >  IFILE 

CALL  CR^AT  (IDCb.IERR,  IFILE, IS! 2E , XTYPE  ,  ISECU , ICR , IDCBS > 
JJ  »  7 

IF  <  IEPR  -LT.  0  >  yOtTEd  .till  >  JJ.ICRR 

CALL  OPEN  < IDCB, IERR , If ILE, IOPTN, ISCCJ. ICR, IDCBS> 

JJ  •  8 

IF  iIERR  -LT.  0  )  UR  HE  <1,1111)  JJ,IERR 
CALL  WRITF  < 1DCB , IEPR , DAtAO , IL ) 

JJ  -  9 

IF  < IERP  _ • LT .  0  >  URITEC1 ,1111 )  JJ,IERR 


CALL  CLOSE  < I DCB , I ERR , 0 ) 
JJ  =10 

IF  <  IERP  .LT 
STOP  7777 
END 


0  )  URITEM  ,1111)  JJ.IF.Rfl 


Figure  1-1. 


Listing  of  Program  to  Split  Up  Big  Raw  Data  Array  From  A-B  Probe 
Into  Two  Smaller  Arrays:  &SPLIT. 


Figure  i-2.  Flow  Chart  of  Data  Acquisition  and  Plotter  Program  &WAVE. 
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4 WAVE  T-D0004  IS  ON  CR00027  USING  00022  BLKS  R-OQOO 


PROGRAM  WAVE  <3,99) 


This  is  program  WAVE 

It  plotts  uovtftrMt  as  read  from  either  » 
a  data  file  created  using  t««t  data  from  the  TX-com 
or  fro*  a  specified  AO  channel  right  away. 


DIMENSION  ICC  EM  192  )  , I BUFF  <  99 ) 

REAL  DAT*! 11 ,256) ,X(2S6> ,Y(2S6> 

INTEGER  I  DC fM  1 44 ) , IFILE <3> , lSIZE(2> , N , CHANL 


DATA  IL  /  5632/ 

DATA  ISIZE(I)  /  44/ 

DATA  ISI ZE ( 2 )  /  120/ 

DATA  MASK  /  1 777  0  OB/ 

DATA  FSVLTG  /  .1E01/ 

FORMAT  <*  This  is  program  WAVE."/"  It  can  plott  a  waveform  as  read 

*  form  the  A/d  or  from  a  data  file."/"  Decide  now,  which  of  the  two 

*  options  you  want'"/"  Key  AD  if  you  want  to  take  a  new  reading,  An 
•vthinge lse "/"  will  ask  for  further  mfornations  for  a  data  file.") 

FORMAT  ("Enter  the  none  of  the  data  file'") 

FORMAT  <  "Enter  the  cartridge  r«f.  nunbtr ' ") 

FORMAT!"  Do  you  want  another  waueforn  to  be  plotted*"/"  Enter  yes, 

*  if  so.  anything  else  if  not‘"> 

FORMAT!"  Do  you  want  to  stop  this  proqran  or  plot  sons  rore  waves? 
*"/"  If  you  are  going  to  stop  it.  just  key  STOP.  Anything  else  will 

*  give  you  further  instructions*4) 

FORMAT  (/12X,5(2X,FlQ.6)/5XJI2,5X,5(2X,Fi0.6)/l2X>S(2X,Fl0 .6) ) 
FORMAT!"  Do  you  need  a  complete  new  frame?"/"  Answer  YES  or  NO 1  * ) 
FORMAT!"  If  you  want  the  plott  on  the  plotter,  key  PL,  anythmgels 
»e  for  the  terminal  »") 

FORMAT!"  You  decided  to  to  qet  a  waueforn  from  the  AD' "/"Enter  the 
t  following  now  :  AD  channel") 

FORMAT! "  Number  of  repetitions,  bladepair  (1-9)  :*) 

FORMAT!"  Enter  the  c or r < sp ond i nq  number  for  the  waveform  you  want 
tto  draw!"/"  The  arrangement  is;V"  Yaw  pos  *12 

*  3  „  9-/9X"  DATA!  1,J>,  DATA(2,J),  DATA!3,J),  ... 

t . . .DATA!  9  ,  J )  -  Probe"/) 

FORMAT!"  Do  you  want  a  plot  of  another  waveform?"/"  If  so,  key  YE. 
SAny  other  key  will  stop  the  program'*) 

FORMAT  c ( 3A2 > ) 

FORMAT  f"  STATEMENT  ft  :"I3"  ERROR  ft  :  "14"  DETECTED") 

LI  -  LOGLU! ISESSN) 

1  WRITE  ! L I ,100) 

READ  (Llji49)  IDUM 

IF  !  IDUM  .EQ.  2HAD  )  GOTO  02S 

WRITE  (LI, 101) 

READ  (LI, 149)  IFILE 
WRITE  (LI, 102) 

READ  (LI,  *)  ICR 

CALL  OPEN  (IDCB, IERR, IFILE, IOPTN.ISECU, ICR, IDCPS) 

JJ  *  1 

IF  <  IERR  .LT.  0  >  WRITE  (LI, 1111)  T J , IERR 
CALL  READF  < IDCB , IFRR , DATA, IL , LtN , 1 ) 

JJ  «  2 

IF  (IERR  LT.  0  )  WRITE  <LI,ltll>  JJ.IERR 
CALL  CLOSE  (IDCB, IERR. 0) 

IF  (IERR  .LT.  0  >  WRlfE  (LI,  1111)  JJ.IERR 
5  WRITE  < L I ,115) 

READ  <LI,  *>  I 
1 1  *  X  ♦  { 

XK  ■  1.0 

DO  010  J  *  1,256,1 
X!J)  ■  J  *  XK 

5  Y! J)  *  DATA! II , J) 

LU  *  1 

ID  »  1 


WRITE  <LI , 107) 

REAP  (LI, 149)  IDUM 
WRITE  < LI ,108) 

READ  (LI, 149)  I  BUM 


Figure  1-3.  Listing  of  Program  to  Plott  Raw  Data  Waveforms:  &WAVE 
(Continued  on  next  page.) 
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0079 
0060 
0081 
0082 
0  083 
0084 
0  085 
0086 
0  087 
0  088 
0089 
0090 

0091 

3092 
0093 
1094 
009S 
0096 
0097 
0098 
0099 
0100 
0 1 Q  1 
0102 
0103 
0104 
OIOS 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
011S 
0116 
0117 
0119 
0119 
0120 
0121 
0122 
0123 
0124 
Q12S 
0126 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
013S 
0136 
0137 
0138 
0139 
0140 


If  Sir  18:  i  JB  :  f 3 

CALL  PLOT*  (IGCB,ID.1,LU> 

CALL  SETA*  ( IGCB,1 .$> 

CALL  UIEUP  (ICCB,20.  .100. ,20. ,68,) 

CALL  WTNOU  (ICCBO.  ,«6.  .^1. 0.1.6) 

IF  (  I DUH  .ME.  2HYE  )  GOTO  015 
CALL  FXD  ( IGCB , 2 > 

.  CALL  LGRID  ( IGCB  ,-16 .  ,.10,0  .0,0. 0,4. ,2.  ,1. > 
015  CONTINUE 

CALL  HOVE  ( IGCB ,X( 1 ) , Y( 1 ) ) 


DO  020  J  »  2. 2S6 , 1 

920  S 


Y  ( J  >  > 


READ  <Li;i49>  IDUH 
IF_<  IDUrt  .EQ,  2HYE  >  GOTO  OS 


GOTO  0S0 
02S  WRITE  (LI, 113) 

READ  (LI,  «)  ICHAN 
WRITE  (LI, 114) 

READ  (LI 
ISTART 


•)  N.IBLADE 
( IBLADE-l )  •  256  ♦  1 
ISTQP  «  ISTART  ♦  2SS 

II  -  0 

DO  03S  X  *  ISTART, ISTOP,l 
II  -  II  ♦  1 

I  BLADE  *  I  ♦  2S6  ♦  1000008 

CALL  EXEC  (3,19) 

CALL  EXEC  (1 ,19,XRPN.i. I BLADE  > 

CALL  EXEC  (1,20, IBUFF,N, ICHAN, O) 
RBUFO  *  0.0 
DO  030  J  «  l,N.i 
I  BUFF ( J  >  •  I  AND ( I  BUFF ( J )  . MASK > 

R  BUFF  ■  FLOAT < I BUFF <J) >/ 32768. 

030  RB UFO  -  RBUFF  ♦  RBUFO 

03S  Y ( 1 1  )  *  ((R&UF04FSVLTG  /N> 

LU  *  1 
ID  »  l 

WRITE  (LI, 107) 

READ  (LX ,149)  IDUH 
WRITE  (LI, 108) 

READ  (LI, 149)  I  BUM 
IF  (IBUH  EQ.  2HPL  )  ID  »  2 
IF  (ID  EQ.  2  )  LU  =  13 

CALL  PLOTR  (ICCB, ID. 1  ,LU) 

CALL  SETAR  ( IGCB , 1 .$) 

CALL  U1E4P  (IGCB, 20. .100. ,20. ,68. ) 
CALL  UINDW  ( ICCB . 0 . ,256 .,-1. 0.1.0) 

IF  (  I DUH  .NE.  2HYE  )  GO i O  040 
CALL  FXD  < ICCB, 2) 

CALL  LGRID  <XGCB,-16.  ,  .10  ,0  .0  ,0  .0,4. 
040  CONTINUE 

CALL  AO ue  ( IGCB , 1  , Y < 1 ) ) 

DO  045  J  «  2 . 256 ! 1 
X(  J)  -  J  *  {  .0 

045  CALL  DRAW  ( 2GCB, X( J ) , Y< J) ) 

0S0  WRITE  (LI, 104) 

READ  (LI, 149)  I DUH 

If-  <  ID  UN  .NE.  2HST  )  GOTO  01 

STOP  7777 

END 


Figure  1-3.  Listing  of  Program  to  Plott  Raw  Data  Waveforms; 


&WAVE . 
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APPENDIX  J 


DATA  REDUCTION  PROGRAM  &ABRED 

Program  &ABRED  was  explained  almost  completely  in  chapter 
6.4.  More  detailed  explanations  shall  be  given  in  here 
where  they  are  needed.  Figure  J-l  shows  a  self-explanatory 
flow  chart  of  the  program  while  Fig.  J-2  is  a  complete 
listing . 

From  the  flow  chart  it  is  obvious  that  the  first  and  big¬ 
ger  part  of  the  program  deals  with  overall  flow  measurements 
from  the  combination  probe.  The  data  reduction  of  these  mea¬ 
surements  is  not  explained  since  Ref.  1  deals  with  this  in 
great  detail.  It  should  be  mentioned  that  the  raw  data  used 
for  the  combination  probe  data  reduction  is  the  average  of 
the  raw  data  which  was  acquired  along  with  the  acquisition  of 
any  set  of  Kulite  probe  data.  Thus  the  results  of  the  com¬ 
bination  probe  represent  one  average  flow  vector  which  is 
assumed  to  be  constant  throughout  the  data  acquisition  pro¬ 
cess.  As  the  Kulite  data  used  for  the  on-line  calibration  is 
derived  from  the  whole  raw  data  acquired  also,  this  seems  to 
be  a  reasonable  way.  The  principle  of  the  on-line  calibra¬ 
tion  was  described  in  chapter  6.1  already.  If  a  print-out 
of  the  control  parameters  was  chosen,  the  result  of  the  on¬ 
line  calibration  will  be  displayed  in  the  form  of  a  linear 
equation  relating  A  and  R  probe  pressures  to  voltages. 
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The  results  of  the  on-line  calibration  are  first  applied 
to  the  dc-level  values  from  the  A  and  B  probe  in  order  to 
calculate  the  average  flow  vector.  Chapter  6.4  shows  the 
results  of  this  process.  The  procedure  used  to  derive  these 
values  is  in  principal  the  same  as  the  one  used  to  calculate 
flow  vector  quantities  for  the  individual  measurements.  In 
order  to  check  the  quality  of  the  data  reduction,  an  output 
of  the  A  and  B  probe  results  as  derived  from  their  approxima¬ 
tions  can  be  produced.  The  yaw  and  pitch  angle  as  well  as 
Mach  number  are  derived  from  the  approximation  results  and 
printed  out.  These  values  can  be  compared  to  those  derived 
from  the  combination  probe  (see  6.4). 

Then  the  DO-loop  for  the  reduction  of  individual  data 
points  is  started  at  the  position  (ISTART)  determined  earlier. 
For  any  of  these  positions  the  results  of  the  on-line  calibra¬ 
tion  is  applied  to  the  raw  data  first,  so  that  absolute  pres¬ 
sure  values  exist.  The  data  reduction  procedure  as  described 
in  6.4  is  then  applied  to  these  values.  Using  the  local  Mach 
number  as  well  as  the  total  pressure  as  derived  from  the  A 
probe,  pressure  coefficients  CpA  are  derived  as  functions  of 
yaw  angle  and  can  be  printed  if  desired.  The  examination  of 
these  values  proved  to  be  very  helpful  in  the  evaluation  of 
the  quality  of  the  achieved  result. 

Since  the  A  probe  has  only  one  calibration  curve  CpA  as 
a  function  of  yaw  angle,  as  long  as  the  pitch  angle  and  Mach 
number  do  not  exceed  the  range  of  the  calibration,  for  any 
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measured  position  the  same  curve  should  be  resolved.  The 
use  made  of  this  fact  so  far  is  described  in  chapter  7. 

When  the  DO-loop  for  all  described  positions  is  completed, 
the  reduced  data  is  stored  in  a  file.  Only  pitch  and  yaw 
angle  and  Mach  number  (  or  x  )  are  stored,  since  they  are 
sufficient  to  describe  the  individual  flow  vectors. 

Common  Block  Identifier  Variable 

DTA2  XI,  Y 


Variable 

Type 

Description 

AAO 

Real 

A  probe  yaw  angle  for  aligned  flow 

ABO 

Real 

B  probe  yaw  angle  corresponding  to 
max.  probe  output 

ASL 

Real 

A  probe  yaw  angle  63°  left  of  flow 
aligned  yaw  angle 

ASR 

Real 

A  probe  yaw  angle  63°  right  of  flow 
aligned  yaw  angle 

BETA 

Real 

Dimensionless  pressure  coefficient 

BETA2 

Real 

Relative  rotor  exit  flow  angle 

COECPB (7,7) 

Real 

Data  array  for  coefficients  of  3-D 
CP OB  approximation 

COEF ( 7 ) 

Real 

Data  array  for  2-D  approximation 
coefficients 

COEKP (7,7) 

Real 

Data  array  for  coefficients  of  3-D 
Kulite  pitch  angle  approximation 

COEKX (7,7) 

Real 

Data  array  for  coefficient'  of  3-D 
Kulite  Mach  number  approximation 

COEOP (7,7) 

Real 

Data  array  for  coefficients  of  3-D 
combination  probe  pitch  angle 
approximation 
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Variable 

Type 

Description 

COEOX (7,7) 

Real 

Data  array  for  coefficients  of  3-D 
combination  probe  Mach  number 
approximation 

CPA 

Real 

Pressure  coefficient  from  A  probe 

CPAMAX 

Real 

Maximum  pressure  coefficient  from 

A  probe 

CPBMAX 

Real 

Maximum  pressure  coefficient  from 

B  probe 

CPOA { 6 ) 

Real 

Data  array  for  2-D  approximation  of 

A  probe  pressure  coefficients 

DATA(20, 256) 

Real 

Data  array  containing  the  raw  data 

DEAMAX 

Real 

First  derivative  of  approximated 
function  EA  (voltage  A  probe)  of 
yaw  angle  for  maximum  of  EA. 

DEBMA 

Real 

First  derivative  of  approximated 
function  EB  (voltage  B  probe)  of 
yaw  angle  for  maximum  of  EB 

DELTA 

Real 

Pressure  coefficient 

DP 

Real 

Pressure  difference  for  two  pressure 
values  corresponding  to  two  yaw  angles 
which  are  separated  by  DX 

DPA 

Real 

Difference  between  actual  A  probe 
pressure  and  value  derived  from  poly¬ 
nomial  approximation  at  each  yaw 
position. 

DPB 

Real 

Difference  between  actual  B  probe 
pressure  and  value  derived  from  poly¬ 
nomial  approximation  at  each  yaw 
position 

DPX 

Real 

First  derivative  of  the  function 

PA(a)  -  PA(a  -  Aa) 

DX 

Real 

Given  spread  in  yaw  angle  between 

PSAL  and  PSAR 

EAMAX 

Real 

Maximum  voltage  from  the  A  probe 

EBMAX 

Real 

Maximum  voltage  from  the  B  probe 

.'I 

\ 
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Variable 

Type 

Description 

EQ3 

Real 

CPOA  -  maximum  pressure  coefficient 

of  A  probe  (used  in  on-line  calibration) 

EQ5 

Real 

CPOB  -  maximum  pressure  coefficient  of 

B  probe  (used  in  on-line  calibration) 

GAMMA 

Real 

Pressure  coefficient 

ICR 

Integer 

Cartridge  reference  number 

IDCB (144) 

Integer 

Data  control  block 

IDCBS 

Integer 

Control  block  length  (of  IDCB) 

IFILE (3) 

Integer 

Array  containing  file  name 

IL 

Integer 

Total  number  of  words  read  from  data 
file  (two  words  for  one  value) 

IPRINT 

Integer 

Decision  variable  (control  parameters 
yes  or  no?) 

IPRINl 

Integer 

Decision  variable  (calibration  coef¬ 
ficients  yes  or  no?) 

ISECU 

Integer 

Security  code 

ISIZE (2) 

Integer 

Array  to  specify  file  dimensions 

ITYPE 

Integer 

Type  of  data  file 

ICLR ( 3) 

Integer 

Command  to  clear  line  above  cursor 

LI 

Integer 

Input  device  number 

LO 

Integer 

Output  device  number 

NOLF 

Integer 

No  line  feed  command 

NOCR 

Integer 

No  carriage  return  command 

PA  (9) 

Real 

A  probe  pressure  values  from  indi¬ 
vidual  measurements 

PAA ( 9) 

Real 

A  probe  pressure  values  from  averaged 
(dc-level)  measurements 

PAB ( 9 ) 

Real 

B  probe  pressure  values  from  averaged 
(dc-level)  measurements 
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PAC (9) 

Real 

Calculated  values  of  A  probe 

PAMAX 

Real 

Maximum  pressure  value  of  A  probe 
output  as  function  of  yaw  angle 

PB  (9) 

Real 

B  probe  pressure  values  from  indi¬ 
vidual  measurements 

PBARO 

Real 

Barometric  pressure 

PBC 

Real 

Calculate i  values  of  B  probe 

P3MAX 

Real 

Maximum  pressure  value  of  B  probe 
output  as  function  of  yaw  angle 

PHI 

Real 

Pitch  angle 

PKB 

Real 

Maximum  absolute  average  value  of  B 
probe  pressure 

PREF 

Real 

Average  value  of  Kulite  reference 
pressure 

PREFP  (9) 

Real 

Array  of  reference  pressures  for  all 

9  independent  yaw  positions 

PSA 

Real 

Static  pressure  equivalent  of  A  probe 

PSAL 

Real 

Pressure  reading  of  A  probe  for  a  yaw 
angle  63°  to  the  left  of  the  flow 
aligned  yaw  angle 

PSAR 

Real 

Pressure  reading  of  A  probe  for  a  yaw 
angle  63°  to  the  right  of  the  flow 
aligned  yaw  angle 

PS  TAT 

Real 

Static  pressure 

PSTATA 

Real 

Static  pressure  minus  Kulite  reference 
pressure 

PTOTAL 

Real 

Total  pressure 

POA 

Real 

Maximum  pressure  output  of  A  probe 
(on-line  calibration) 

POB 

Real 

Maximum  pressure  output  of  3  probe 
(on-line  calibration) 
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UNCLASSIFIED 


NL 


Variable 

Type 

Description 

PI 

Real 

P23 

Real 

Pressure  values  of  combination  probe 

P4 

Real 

RADIS 

Real 

Radius  of  probe  tip  location 

RDATA( 3 ,256) 

Real 

Reduced  data  array 

RPM 

Real 

Compressor  speed 

SECTA 

Real 

intercept  A  probe 

SECTB 

Real 

intercept  B  probe 

SLOPEA 

Real 

Slope  A  probe 

SLOPEB 

Real 

Slope  B  probe 

TT2 

Real 

Total  temperature  at  rotor  exit 

U 

Real 

Circumferential  rotor  speed 

XM 

Real 

Mach  number 

XU 

Real 

Dimensionless  circumferential  rotor 
speed 

XVEL 

Real 

Mach  number  equivalent  dimensionless 
speed 

XO 

Real 

Starting  value  for  the  iteration  to 
find  PSAL  and  PSAR 

Xl  ( 256) 

Real 

Data  array  for  2-D  approximations 

Y ( 256 ) 

Real 

Data  array  for  2-D  approximations 

YAW 

Real 

Yaw  angle 

YAWA ( 9 ) 

Real 

Array  containing  A  probe  yaw  angles 

YAWB ( 9 ) 

Real 

Array  containing  B  probe  yaw  angles 
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APPROXIMATE  THE  A-PROBE  PRESSURE 
VALUES  AS  A  FUNCTION  OF  YAWANGLE 


CALCULATE  PRESSURE  VALUES  PAMAX, 
PSAL.PSAR  AND  CORRESPONDING  YAW- 
ANGLES  FROM  APPROXIMATED  CURVE 


~  ~  YFS 

^TPRINT  =  YET^^_Li2 - 

PRINT  RESULTS  FROM 
A-PROBE  EVALUATION 


APPROXIMATE  THE  B-PROBE  PRESSURE 
VALUES  AS  A  FUNCTION  OF  YAWANGLE 


:alcuiate  THE  MAXIMUM  PRESSURE  value 
BMAX  FROM  APPROXIMATED  CURVE  AND 
HE  CORRESPONDING  YAWANGLE 
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Figure  j-1.  Flow  Chart  of  Data  Reduction  program  &ABRED 
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CALCULA 1 E  THE  DIFFERENCES 
BETWEEN  THE  ORIGINAL  A-  AND 
B-PROBE  DATA  AND  THE  APPROXI¬ 
MATED  DATA. 

PRINT  THE  ORIGJ 
APPROXIMATED  Q( 
DIFFERENCES  FOt 

INAL  VALUES,  THE 
*FS  AND  THE 

A-  AND  B-PROBE 

DERIVE  THE  MAXIMUM  OF  THE  APPROXIMATED 
B-PROBE  PRESSURE  CURVE  pbmax 

|  CALCULATE  jr  FROM  P AMAX  , PBMAX  AND  PSA | 

PRINT  RESULTS  OF 
B-PROBE  EVALUATION 


APPLY  CALIBRATION  TO/  AND  f"  AND 
'•Far‘“r  PITCH# 


DERIVE  MACHNUMBER  AND 


THANGLE 


< 


Figure  J-1.  Flow  Chart  of  Data  Reduction  program  SABRED 


Flow  Chart  of  Data  Reduction  program  SABRED 


PAIRED  T-09014  IS  ON  CR00I27  USING  10142  BEKS  R-0000 


FTN4.L 

8 

c 


c 

c 

c 

c 

c 

c 


PROGRAM  ABREO  <3,491 

THIS  IS  PROGRAM  ABREDtuct i.n)  FOR  THE  A-B  PROBE  SYSTEM. 

scIeen°uiW  MW8M  r 

IF  ANY  OTHER  PROBES  (KULITE  AS  WELL  AS  COMBINATION  PROBE) 

WuPro'J^uWSr.  file  HAnES  ro*  ™E  coefftciENT 


FILE  •  CONTAINS  APPROX.  COEFFICIENTS! 

1  KULITE  PROBES  MACHNUMBER 

2  KULITE  PROBES  PITCHANCLE 

3  KULITE  PROBES  CPOB 

4  COMBINATION  PROBE  MACHNUMBER 

5  COMBINATION  PROBE  PITCHANGLE 


DATA  ARRAY  NAME 

COEKX 

COEKP 

COECP 

COEOX 

COEOP 


COMMON  /  0TA2  /  K»,Y 

REAL  DATA<20 ,256) , XI <  2SA>  ,Y(25A) .C0EF<7) 

REAL  C0E0X<7,7)  ;C0E0P<7,7> , COEKX (7,7 >, COEKP (7,7) , C0ECPB<7,7> 


REAL 
REAL 
REAL 
DIMENSION 

iKISi". 

DATA  CP0A<1> 
DATA  CP04<2> 

-  CPOM  3) 

CPD4< 4> 
CDOA(S) 
CPOJMfrl 
I  ©CDS 

W 

nolf 

f  OUTPUT 


,YAWA<9) 

,P*C(*> 


DATA 

bi: 

DATA 

DATA 

DATA 

3SS  FORMAT 


PAA<4>  :PAB<9) 

PA<9)  P8(9) 

RDATA<3,2S4> 

CP0A<6> 

IDCB( 144) , IFILE(3> , ISIZE (2 ) 

nolf,mocrI2>,iclr<S> 

/  1. <025921  i 
/  0 . 03S6475  / 

/  '.2724224  / 

/  0.9320285  / 

/  '2 


;YAUB(9> 

,PREFP(9> 


144  / 


/•^ISaI^H159, 0065379 


■A2) 


INPUT  DATA  TO  ANY  OTHER  DEVICE)  ENTER  NO 


305  f83haY  (12) 

310  FORMAT  <  *  DO  YOU  WANT  AN  OUTPUT  OF  THE  CALIBRATION  COEFFICIENTS) 
_  «/*  ENTER  YES  IF  so  OR  ANYTHINC  ELSE  IF  NOT*-/-  "A2) 

31S  FORHAT  <  -  DO  YOU  MANY  an  OUTPUT  OF  THE  CONTROLL  PARAMETERS) 

•Y  res  IF  30  OR  ANYTHING  ELSE  IF  NOT*-/"  "A2> 


KE 


s  ®  i  nxvsmf^ 

3S  FORMAT  <-  ENTEr  RAW  DATA  FILE**// 
4-  DON’T  forget  SECURITY  code  a  car 


GET  SECURITY  CODE  A  CARTRIDGE  REFERENCE  NUMBER*-/ 
A2> 


IJI  format  <  -^ntEJNnI 'nuaJIr  OF 

II 


0  FORMAT 
IS  FORMAT 


■A2) 
(I3.1X.I3) 
< • 


THE  START  AMD  END  POSITION 


*  a’ a 


.  .  _ .  .  _  ««»»»«»»«»»•**»»*««»«**«»«»»»*•*»»»«*•*«*■// 

*•  RAW  DATA  FILE  :  ’3A2*:  "IT  /' 

«  -  ii(M>futiinMiiiiiiuiauii>iiiuuiuiimtiaMn’/) 

340  FORMAT//-  FLOW  AVARAGED  VALUES  AS  ESTABLISHED  WITH  THE  CDHUNATION 
•  PROBE-//-  Pt«tol<  INCH  M20)  P»tst  »c  l  INCH  H20>  "fX-Xv*  l  "AX  -Maeti  ”2X" 
PPMi(tf(«>-2X‘Yaw(d«9>-/2lSX.F13.b> .2<?X,Fa.S> ,2(3X ,F7 . 2) /) 

3AS  FORMAT  t-  EQUATION  FOR  A-PROBE  PRESSURE  (•/*  PA  »  -F12.6"  ♦  *  F12. 
»**  »  VOlTACf<r«w)M.  01  ♦  PREFUMCh  H20)-> 

I  FORMAT  t  *  CPOA  ■  -F10.5*  CPOB  «  -F10.7) 

5  FORHAT  <•  EQUATION  FOR  B-PRQBE  PRESSURE  ••*/*  PB  »  -F12.6-  ♦  *  F12- 
•A*  •  VOLTAGE  trow)40 . 01  *  PREPUNCH  N20>') 

‘  'M"*!  *'■  •  PAA(B)  PAB10)  YAUA(O)  TAWBt*)-/) 

0RMAT(I2.4( 1X.F7.S) ) 

9RMAT ( -  A-PROBE  APPROXIMATION  RESULTS  :  TAW  *  -3<SX ,F9 . 2) /16X-  PR 
MS  SURE  (INCH  H20)  •  ’3(3X,Fll .  6>/29X*  CPAMAX  *  "F8.4/> 

395  FORMATS-  b-PROBE  APPROXIMATION  RESULTS  :  TAWO  *  TS.f  PRESSURE 
•(INCH  H20'  ■*Ffc.2//i 

400  FORMATC  AVERAGE  value  RESULTS  FROM  the  A-B  SYSTEM:  -//5X-BFTA-4YT. 
»AMMA-SX*Xv«l-4X-»,TeM-*X-T«M*7X-XU-*X"XAX*4X*BETA2-/3lF».S)  ,.?<2T  .F 
»“ .2) ,2<F9 ,s> ,2x ,F- ,2> 


SllSs 


Figure  J-2. 


Listing  of  Data  eduction  Program  SABRED. 
(Continued  on  next  page.) 
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I 


T 


9079 
'<#  8» 
0«t)l 
0*82 
3*83 

im 

OQgQ 

0089 

3090 

.ovt 

0092 

0093 

0094 

00»1 

JQ97 

jsa 

31*8 

0191 

0112 

*1*3 

AIM 

OIOS 

no* 

31*7 

4ia 

oiot 

3110 

ini 

*112 

3113 

:n« 

ms 

an* 

0117 

mi 

3122 

9123 

*124 

91*5 


40S  ^FIJRgAT^A ////////•  POSR**X*B* ta*5X*CQnna*bX*Xw*l*SX*Pitch*?X*Y«w*S 

41*  FORMAT!*  »  YAWAU)  PA(I>  PAC(I>  88*  YAWB(I)  t 

*B<I>  PRC ( 1 >  8***) 

«*■>'-  ‘Fe3/> 


551  Fr88!«;<ii:i^?*Fl>*i?§*F^n>» 

440  F 09 NAT  < “  ENTE*  THF  NA*EFO«  THE 


CPA" ) 


_ _  _  ....  _ _  TMC  FILE  CONTAINING  REDUCED  DATA*"/ 

«;  DON'T  FORCE]  SECURITY  CODE  A  CARTRIDGE  REFERENCE  NUNBCAfV 

itt!%S5Tr  i'-'sTXra  S^i4?T?5i8«tM.  *) 

1149  FORMAT  <(3A2>> 

LI  -  LOCUll  ISESSN) 

0,5  snsE  WiUJiv*  mr« 

tt,IEiJ>iii’“&  ‘^S^fco  h2Ut 

.AU  C,J^0H  ,#5)  LQ 


1  A  *FMn,  <21 

Bjlli 


1 

6 

IB 


_s  _  til 

GO  TO  a  IS 


18  TO 


010 

01S 


if  i  __ 

Vo  ioLW 

LO  •  0 

IF  (  LO  .EQ»  LI  )  „ 

WRITE  (LI,  310>  NOLF 
READ  (Li;il49)  IPR INI 
WRITE  (LI  1149)  <ICLR,H1*1,3> 
WRITE  (LI,  31S>  NOLF 
READ  (LI, 1149)  1PR1NT 
WRITE  (Li;il49)  <1ClR,IU  •  1,3) 


_LO 


''ua 
0129 
0130 
i\31 
0132 
0133 
••134 
;13S 
•Hi  6 
3137 
:-x3B 
139 
a  1  4  0 
T14i 
142 
3143 
M44 
:t4S 
146 
;  1 47 
146 
'149 
ISO 

m 

MS4 

1SS 

:ih 

3158 


IF1LE<1> 

IFILE(2>  ■ 

IFILE<3>  » 

ISECU 

$!l  OREM* 

ll,l  fell, 

IF  *  I  ERR  _  .  .... 

CALL  CLOSE  ( IDCB, IERR , t ) 

IF  *  IERR  .LT.  0  )  WRITE  (LI ,1111)  J3,IERR 
IF  (IFRINl  .ME.  2MYE)  GOTO  025 


2MHI 
2MST 
2HXW 

0* 

?IDCB, IERR, IFILE.IOFTM, ISECU, ICS, IDCBS) 

. LT .  0  )  WRITE  (LI, 1111)  JI , IERR 

(IDCB, IERR ,C0EKX,9s)LEN, 1 ) 

.LT  t  >  WRITE  (LI, 1111)  JJ,IERR 


output  imput  data. 


WRltE  (LI,  32b )  IFtLE 

IF  (  LO  .ME,  0  >  WRITE  (LO,  320)  IFILE 
WRITE  (LI,  325 )  (11,11*1,7) 

IF  <  LO  .ME.  0  )  WRITE  (LO,  32S)  (11,11*1,7) 


DO  020  11*1.7,1 

IF  (  LO  .til.  0  )  WRITE  (LO,  330)  J1,(C0EKX 
020  WRITE  (LI,  330)  II , (COEKX( It , Jt ) , Jl*l ,7 , 1 ) 


(11 ,Jl) ,Jt*l,7,l) 


READ  COEFFICIEMTFILE  FOR  THE  XULITE  FITCHANGLE  APPROXIMATION 
FROn  DISC  INTO  ARRAY  C0EKP<7,7>. 


025 


mm  im 

IFILE(3>  *  2HFI 

(JAlL  OPEN  (IDCB. IERR, IFILE. IOPTN, ISECU, ICR, IDCBS) 

IF  *  IERR  LT.  P  >  WRITE  (LI, HID  JJ.IERR 
CALL  RFADF  <  IDCB. IERR  .COEXP  ,»8. LEN.D 


Figure  J-2. 


Listing  on  Data  Reduction  Program  SABRED. 
(Continued  on  next  page.) 
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MMwiMhFF tHenm* +*•+***■-<■—*  — ~ 


’  i  '  '  l4 


KlI  Ilose  Alu.UMV*  ‘L,'im>  ,,>,E" 

ft  ixtsw  1  :tf :  ^>TO  M  ml>  ,,’,E" 


OUTPUT  INPUT  DATA. 


ilo i 


i?  ?\Vl-k7'1.  >  write  0,0,  no.  ii,icocKPm,Jt> 
030  WRITE  (LX,  330)  II ,  (CO«P<  II ,  31 )  ,Jt-l ,7,  I  > 


320 >  IFILE 
32S)  m,ii*t,7» 


,Jl«l,7,l> 


m  fc8Sc^,^ite  CM*  *M*ox,KATtQM 


JF1LE(3)  *  ZMCP 

CALL  OPEN  (IDCD, IERR, IFILE, IOPTN.ISECU, ICR, 1DCBS) 

U  *  IERR  .LT.  0  )  WRITE  (LI.llll)  JJ.IERR 
CALL  READF  ( I DCS, IERR , COECPB, 9Q,L£N, 1 > 

IF  <  IERR  .LT  ,  03  WRITE  (LI, tilt)  JJ.IERR 

Call  close  (ioCb,ierr,o> 

JJ  «  7 

IF  (  IERR  .LT,  0  t  URITE  (LI, till)  JJ.IERR 
IF  (IPRIN1  .ME.  2HYE)  GOTO  OPS 


OUTPUT  INPUT  DATA. 


WRITE  (LI,  320)  IFILE 

IF  (  LO  .HE.  0  )  WRITE  (LO,  320 >  IFILE 
WRITE  (LI,  325)  (11,11*1 ,7) 

IF  (  LO  JIE.  0  I  WRITE  (LO,  32S>  (11,11*1,7) 

IF  ®  LOI,’n4710  >  WRITE  (LO,  330)  I 1 , ( CDECPB( II, 31), 31*1 ,7,1) 
WRITE  (LI.  330)  Il,(C0ECPB(ll,Jl>,Jl-t,7.1> 


jfclLE(l)  *  5hC0 

IFILE  (Vi  l  2H^X 

^ALL  OPEN  HOC!, IERR, IFILE, IOPTN.ISECU, ICR, IDCBS) 

tf  ?  {err  LT  0  )  WRITE  (LI, 1111)  JJ.IERR 
CALL  READF  ( IOC* . IERR . CQEOX , »B . LEW , 1 ) 

jj  ■  n 

IF  i  IE»«  LT  0  )  WAITE  0.1,1111)  JJ.IERR 
CALL  CLOSE  ( I DCS, IERR , 0 > 

JJ  •  12 

IF  (  IERR  .LT.  0  )  WRITE  (11,1111)  JJ.IERR 
IF  ( I PR  INI  .NE.  2MT£)  GOTO  055 


OUTPUT  INPUT  DATA. 


WRITE  (LI,  320)  IFILE  _ 

IF  (  LO  !«C.  0  )  WRITE  (LO,  320)  IFILE 

WRITE  (Li.  345)  (It.Il-1,7) 

IF  (  LC  NE  0  )  liR ITC  (LO,  325)  (11,1 


DO  050  11*1,7,1 
IF  t  LO  n£  0 


WRITE  (LO,  325)  (11,11*1,7) 

WRITE  (LO.  330 )  11  .(COEOXdt ,  Jl  > ,  Jl*l  .",  1 ' 


Figure  J-2. 


Listing  of  Data  Reduction  Program  SABRED 

(Continued  novf  narro  \ 


OSO  MITE  <L1,  330)  11 , <CO£OX< I 1 , J1 ) , Jl-l ,7 , l) 


READ  COEFFICIENTFILE  FOR  THE  COWINATIONPROBE 
APPROXIMATION  INTO  ARRAT  C0E0P<7,?>. 


PITCMANCLE 


055  IFILE(l)  »  2HC0 
IFILEO)  •  5hef 
IFILE (3)  «  2H2P 

CAU.  OPEN  ( IDCB , XERR  ,  IF ILE , 10PTN , ISECU , ICR , IDCBS) 
JJ  ■  13 


hid  m,  >ji  ■  iem 

JJ  *  14 

IF  <  XERR  .LT.  0  >  WRITE  (LI, 1111)  JJ.1ERR 
CALL  CLOSE  (IDCB , XERR , 0 ) 


IF  <  XERR  .LT.  0  >  WRITE  (LI, 1111)  JJ.1ERR 
CALL  CLOSE  (IDCB, IERR, 0) 

JJ  *  IS 

IF  (  XERR  .LT.  0  )  WRITE  (LI, till)  JJ.IERR 
IF  (IPRIN1  .NE.  2HYE >  COTO  065 


OUTPUT  INPUT  DATA. 


WRITE  (LI,  320)  IFILE 

IF  (  LO  ,NE.  0  )  WRITE  (LO,  320)  IFILE 
WRITE  (LT,  325)  (11,11*1,7) 

IF  (  LO  'nE.  0  )  WRITE  (LO,  325)  (11,11-1,7) 

BO  060  11-1.7,1 

IF  (  LO  .NE.  0  )  WRITE  (LO,  330)  II , (COCOP ( II , J1 ) , Jl-1 ,7 , 1 > 
060  WRITE  (LI,  330)  I1,(COEOP(I1,J1),J1-1,7,1> 


065  WRITE  (LI,  335)  NOLF 

READ  <L|!  340)  IFILE, ISECU, ICR 
WRITE  (Li;il49>  (1CLR.I1  -1,3) 


IL  * 

ISIZE(l)  - 
I5IZ£(2)  • 
CALL  OPEN 
JJ  «  13 
IF  (  IERR 


10240 

SO 

128 

< IDCB , IERR , IFILE , IOPTN, ISECU , ICR , IDCBS) 


IF  (  XERR  .LT.  0  )  WRITE  (LI, 1111)  JJ.IERR 
CALL  READF  ( I DCB , IERR , DATA , It , LEN, 1 ) 

JJ  -  14 

IF  (  IERR  .LT.  0  )  WRITE  (LI, 1111)  JJ.IERR 
CALL  CLOSE  ( IDCB, IERR , 0 ) 

JJ  •  IS 

IF  (  IERR  .LT.  0  >  WRITE  (Ll,llll>  JJ,IERH 
WRITE  (LI, 34$)  NOLF  1 

READ  < L 1 , 3S 0 )  I3TART.IEND 
WRITE  (LI .35$)  IFILE. lC« 

IF  (  LO  NE  ,  0  )  WRITE  <L0,3S3>  IFILE  ,  ICR 


CGH8INATI0N  PR OPE  DATA  REDUCTION. 


PI 

P23 

P  4 

PREF 

RPH 

RADIS 

YAW 

TT2 

DO  070  I 
J 

PDAffO 

Pi 

P23 

PA 

PREF 
RP  n 
RADIS 
TAW 

070  TT2 
PI 
P23 


*0.0 
*0.0 
*  0.0 
*  0.0 

* 

*  (1-i)  *  20 

*  DATA< 20  .  .*♦?)  *1 . 3S8S 

*  Pi  ♦  <DATA<20,J*  3)  -  DAT  A<  20 , J*  1>  ♦  PPARO  >  *i  CO*  1  00  0 

«  P23  ♦  (DATA(  20  ,  J*  4  >  -  DATA(?0.J*  1>  ♦  PHARO  >  *l  00M  000 

*  PA  ♦  i PATA<  20 , J ♦  S>  -  PAT  At  2f* ,  J  ♦  i>  ♦  PfcARQ >* 100*1 00 0 

*  PREF ♦  DAT  A( 20 , J  +  t  4  >  *  100  *  1000 

I  5aSis-(BaIa(58 ’Jli  Udat£?20 , J ♦ 1 0  > -DAT  A( 20 ,  J-12 ) )/3*1000 
■  TAW  ♦  OATA(20, J*9>  *  10000 

*  TT2  ♦  ( DATA( 20 , J ♦ 15 >  »  PATA( 20 , J*16) >  »  1000 

»  Pt  /  9 

«  P2J  '  0 


Figure  J-2.  Listing  of  Data  Reduction  Program  &ABRED. 
(Continued  on  next  page.) 
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sm  % 

**013  /  9 

5. 51  -  **018 

m '/ ; 

31.95S7  ♦  3*. *827  *  TT2  -  0.3679  *  TT2  *  TT2 
<<TT2  -  32>  *  5  /  9  >  ♦  273.15 
SMT  <  2008  *  TT2  ) 

(RPM  /  60)  *  RADIS  *  2  *  3.14159  *  • . 0254 
U  /  VT2 
(  91  -  923  >  /  91 
(91-94  )  /  (  91  -  923  > 

GAUM*  *  BET* 


XVEL  >0.0 

PHI  «  0 . 0 

DO  075  II  »  1,7,1 
DO  075  12  ■  i:7; 1 
XVEL  *  XV$L  * 


XVEL  •  XVEL  *  (C0EQX( II , 12  >4DELTA**( X2-1 ) >*GAHHA**( 11-1) 

075  PHI  •PHI  ♦  ( C0E09(  1 1*12)  *DELTA**( 12-1  >  >*(>AnnA**(  1  t-t  > 

XH  •SORT  <(2/<1.4U2-l>)4( (XVEL* XVEL  >  /  ( 1 - ( XVEL* XVEL  >  >  > ) 

9  TOTAL  *  91 

PSTAT  «  9T0TAL  *  ( 1-XVEL*XVEL >**( 1 . 4*2/ . 402> 

WRITE  (LI, 360)  PTOTAL, PSTAT, XVEL  .XH.PHI  .YAW 

IF  (  LO  .HE.  0  >  WRITE  (LO.JbO)  9TOTAL  .I^STAT  ,  XVEL  ,  XH  ,  PHI  ,  YAW 


9ERF0RH  ONLINE  CALIBRATION.  A-9R0BE  FIRST. 


FIND  HAX1HUH  0UT9UT  OF  A-9ROBE . 


DO  080  I  •  1,9.1 

J  -  (f-{)  «  20 

X1(I)  *  DAT A( 20 ,3*11)  «  10000  *  3.14159  /  180 

080  Y  (!)  ■  DATA(2o!j*17) 

CALL  HAT 2  ( 9 ,S,COEF , -4) 


INITIAL  ESTIHATE  FOR  THE  A99R0XIHATIQN  IS  :YAW  «  22  (deg> 


XO  *  0.4 

085  DEANAX  -  FND  (4.C0EF.XD) 

IF ( ABS( DEAMAX )  .LT.  0.6001  )  GOTO  090 

g8t5  X8s“  DEA"AX  /  <2»COEF(3>*6*COEF(4)*XO*12«COEF(5>«XO*XO) 

090  ?AHAX#a  »  FN9(4,C0EF  ,X0) 

SL09EA  -  (DATA(1,166)  ♦  DATA( 1 , 1B0 )>/( -2 . 0 >4100*1000 
9HI  -  9HI  t  3.14159  /  180. 


CALCULATE  C90A(E03>  FROH  COMBINATION  9R0BE  RESULTS  (9ITCH> 


EQ3  •  FN9  ( 4 ,C9  OA . 9HI > 

9 AH AX  *  E03  »  (FTOTAL-PSTAT )  ♦  95T AT 

SECT*  »  9 AHAX  -  PREF  -  SL09EA  *  EAHAX 

9 OA  *  SECT*  ♦  SLOPE*  *  EAHAX  ♦  PKEF 

IF  (  I9RTNT  .  HE  .  7HYE  >  C-tHO  095 
WRITE  (LI, 365)  SECT* .SLOPE* 

IF  (LO  NE.  0  )  WRITE  (L0.365)  SECT*, SLOPE* 
095  CONTINUE 


B-9R0BE  CALIBRATION, 

FIND  MAXIMUM  OUTPUT  FIRST. 


BO  100  I  «  1,8,1 

J  -  (  I-l>  «  20 

XI < I)  »  DATA<20 ,3+13)  *  10000  *  3.14159  /  180 
100  Y  (1)  •  DATA(20 , J+1B ) 

CALL  MATS  (8  ,5 ,COEF ,-4> 


Figure  J-2. 


Listing  of  Data  Reduction  Program  &ABRED. 
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INITIAL  ESTIMATE  FM  THE  APPROXIMATION  IS  >  TAN  •  0  <dcq> 


XO  •  0.9 

10S  DERMA  •  FND  (4,CDEF,XO> 

IF  (ARS1DCBHA)  .LT.  0.00*01  1  GOTO  It* 

XO  »  XO  -  DERMA  /  1 2RCQEF ( 3 ) ♦bPCQEF 14)0X0*1 2RC0EF (5)*X0*X0) 

feii85 : 

EOS  >0.0 


ita 


CALCULATE  CPOB  FROM  COMBINATION  PROBE  RESULTS. 


6o‘ii4'ii'i'i',$;i . 

1  1  *  * *  *xve«-** *  -i  > » «. « i r- t , 

K.“*°  ' N»' EQS  «**  <  PTQTAL-PS^  AT^.1  P^TAT 

PKB  «  POB  ♦  PREF 

SLOPES  »  ( DATA ( 1.170)  ♦  DATA! 1 , 198 1  )  /  (-2.0)  •  100*1000 
SECTS  •  PX8  -  P*EF  -  SLOPES  *  EBMAX 
IF  <  IPRINT  ,NE.  2NYE  )  GOTO  120 
WRITE  UI.37S)  SECTS, SLOPES 
IF  (LO  NE.  0  >  WRITE  (L0,3?S>  SECTS, SLOPES 
120  CONTINUE 


START  DATA  REDUCTION. 

FIRST  CALCULATE  THE  AVERAGE  FLOW  PARAMETERS  USING  THE 
OVERALL  VA^U|S  FRgM  THE  A  AND  S  FROBE  AND  THE  JUST 


♦  DATA! 20 ,J*14>*100*1000 

*  DATA(20' J*14)*I00*1000 


DO  125  I 

PAA< I > 

PAB(I) 

PAAd  > 

PAB(I) 

YAUA(I) 

12S  YAWB(I)  .  .  ... 

2WTE  )  GOTO  13S 

WRITE  (LI, 380) 

IF  (LO  . N(i .  0  )  WRITE  (L0,3e0) 

DO  130  I  -  1,9.1 

WRITE (LI ,385)  t ,P  AA( I),PAB(I>, YAWA( I ) YAURl I > 

130  IMLO  Ht.  0)  wAlTE(L0,38S)  I,PAAd)/AB(l),YAWA(I),YAWRd) 
135  CONTINUE 


1.9,1 

(t-l)  *  20 

DATA(20, J»17) 

DATA ( 20 , J+ 18) 

fECTA  ♦  SLOPEA  *  PAAd) 
ECTB  ♦  SLOPEB  «  PAB(I) 
DAfA(?0 , J*1 1 >  *  10000 
DATA ( 20 , J*l3 )  «  10000 


APPROXIMATE  a-PRORE  PRESSURES. 


DO  140  I  *  1,9,1 
Xl(I)  «  yAwA(I) 

140  Yd)  ■  PAA  (I) 

CALL  MAT 2  (9,5, COCF , -4 ) 


DX 

»  126.0 

xo 

■  -40.0 

dp 

*  (FNP <4 

145  DP  .  *  (FNP(4,CQEF  .XO)  -  FNP ( 4 , COEF , ( X0»DX ) ) > 

IF  (ARS(DP)  .LT.  6.0001  )  COTO  ISO 

DPX  •  -2 . ORCQEF (3l*DX-6.0*COEF(4)*X0*DX-3. ORCOEF ( 4)*DX*DX- 
*x#  12j.O*COCFj(S)*XJfgO»9«-12*COEFlS>*XO*DX  ‘  ‘  - 

GOTO  145  "  * 


>*X^6»9W-‘2*C0EF(S>*XQ*DX*DY-4.0*C0EF<5>*DX**3 


‘SO  ASL 
ASR 
AAO 
PANAX 


«  X?  ♦  DX 
»  XO  ♦  DX  /  20 
«  fnp(4,ccef.aa(;) 


Figure  J-2. 


Listing  of  Data  Reduction  Program  *ABRED 
(Continued  on  next  page.) 


PSA  -  (PSAL  ♦  PSM  )  /  2.0 

??AHAX  ’  (PAMAX  -  pU  5  /  WStAL  -  PSA  > 

IF  (  IPStNT  .ME.  2MTE  )  COTO  155 


PAMAX  j  PSAR  ,  CPAHAX 


APPROXIMATE  S  PROBE  PRESSURES. 


DO  160  I  •  1.9.1 

i ao  ?MB  :  l&\\\ 

CALL  MATS  <9,S,C0EF,-«> 


FIND  MAXIMUM  OUTPUT  OF  B-PROK. 


X0  «  0.00 

IAS  DPX  -  FMD(4,COEF,X0> 

IF  <  ABS(DPX)  .Lt.  O.ioOOl  )  COTO  170 

XO  •  X»  -  DPX  /(2*CO£F(3>  ♦  fc*COEF< 4 >4X0  ♦  12»COEF(S>tXO*XO> 
COTO  IAS 

170  ABO  •  XO 

PBMAX  •  FNP  (4,  COCF,  ABO) 

IF  (  IPRINT  ,N£.  2MTE  )  COTO  17S 
WRITE  ILI.395)  ABO.PBHAX 
IF  (  LO  .ME.  0  >  WRITE  (L0.39S)  ABO.PBHAX 
175  CONTIMUE 

CPBNAX  -  (  PBMAX  -  PSA  )  t  (PTOTAL  -  PSA  > 

CAHHA  -  (CPAHAX  -  CPBMAX  >  /  CPAMAX 

?SfL  :  n 

n  m  u :  \*,\ 

XV EL  •  XUEL  ♦  (C0EXX(I1,I2>  tGAMHAM(I2-l>>»  PETA»«<I1-1> 

ISO  PHI  »  PHI  *  (C0EXP(I1^I2£  »GAMHA»»(I2-1>>»  BET A** ( 1 1 - 1 ) 

iiL  :  pJ?i^i4is$/?8!>5IW?AMi5!i4iU/iso » > 

S  /  XAX  >  «  180  /  3.14159 

WRITE  (LI, 400)  BETA,CAMMA.XVEL.PHI.AB01XU,XAX.BETA2 
IF (LO  .ME.  0)  WRITE  (LO , 400  >  B*T A.GahhA , XUEL >MI , ABO , XU ,XAX , BETA2 


START  OF  DATA  REDUCTION  FOR  INDIVIDUAL  POSITIONS. 


Calculation  of  «alu«o  which  art  ualid  for  all  potitiona. 


ytirfe  <li,«os> 

IF  (  LO  WC.  0  >  WRITE  <LO,40S> 

DO  IBS  I  «  1.9.1 
J  *  <1-1 >  *  30 

YAltAU)  •  DATA < 20 ,  JM 1 )  *  10000 
YAWB(X)  ■  DATA<20 ,  JM3>  •  10000 
10S  PREPP<I>  *  DATA<20 , J*14>  *  100*1000 


49  C 

;so  c 

'Si  c 

SS2 

-S3 

■S54 

?S5 

5S6 

5S? 

tSA 


START  OF  DO  LOOP  • 


DO  370  I 
DO  190  J 
J1 
J2 

PA<  J> 
PPU) 
PAtJ  > 


ISTART . IEND  > 1 
Ip  *,{ 

J  *  2 
J  *  2  ♦  1 
DATAi Jl , b  *  0  Ol 
DATA<  J2 , l '  *0.0\ 

SECTA  ♦  SlOPEA  «  PA<J'  ♦  PREFP \ J > 


Figure  J-2.  Listing  of  Data  Reduction  Program  &ABRED 
(Continued  on  next  page.) 


191  P*(J9 


■  SECT*  ♦  SLOPE*  •  PD(J>  ♦  PRCFPU* 


*MnitMti  A-prxba 


oo'iw'ii'iijpli . 

I*.  JMrn  : 

hwi? 

a**  PAC(Il)  •  FNP  ( 4 ,CQ£F , YAWA( I 1 ) > 


FIN*  MAX.  OUTPUT  OF  *  PROSE • 


bx 

xs 

ass  dp 


DP  •  <FNP(4,COEF,X9>  -  FNP(4.CgEF,(X9*DX>>> 

if  <*»s<OP>  . Ct.  o!o*i  >  com  its 

DPX  a  -2.0*CO€F(3>*DX-*.0»COEF14)»XI*DX-3.0«COEF<4>»DX«DX- 

12  9*COEF <S>«x9*DX*DX-l2*COEF <S)(X94X9RDX-4. 0*C0EF(S)*DX>«3 


goto  ass* 
ait  ASL  •  x» 

AS*  «  XS  *  DX 
aas  »  xt  *  dx  /  a.s 

PAMAXa  FNP(4,C0£F, AAB) 

PSAL  •  FNP(4  COgF  ASL) 

PSA*  ■  FNP<4  COFF.ASR) 

PSA  •  (PSAL  *  PSAS  >  /  2.9 


•ETA  •  (PAH AX  -  PSA  )  /  PAH AX 

CPAHAX*  (PAHAX  -  PSA  >  /  (  PTOTAL  -  PSA  > 

IF  (IPRINT  .ME.  3HYE  >  COTO  2lS 

WRITE  (LI. 399)  ASL.AA9 .ASR.PSAL.PAMAX.P8AR .CPAHAX 

•  ■  »  wrIte  <L0,J»9>  ASL,AA4,ASR, PSAL, PAHAX.PSAR, CPAHAX 

wl  a  CONTINUE 


APPROXIMATE  B  PROSE  PRESSURES. 


DO  229 ■ ii i'»' i . 

22.  Wilt  :  PRU*(U) 

?FLVlPRlST<,Al!C3MYi"1>COTO  22S 
WRITE  (LI. 419) 

IF  <LO  .N*.  9  )  WRITE  (LO.410) 
22S  CONTINUE 


CALCULATE  AND  PRINT  QUALITY  OF  APPROXIMATIONS. 

6d'5S4'  . 

PSC  »  FNP  ( 4 , COCF , Y AWB (Il>) 

DPA  »  PA( II)  -  PAfidl) 

DPS  *  PS<lt)  -  PSC 

IF  < IPRINT  .NE.  2HYE  >  GOTO  230 

WRITE  (LI  ,41S>  II  ,  YAWAdi  )  , PA<  1 1  >  ,P  AC  <  1 1  >  ,  DPA  ,  YAWS <  U  )  ,PS(  1 1  )  ,P»C. 

•DPS 

IF  (LO  .NE.  0)  WRITE  (LO,4lS>  1 1  ,YAWA<  II )  ,PA(  1 1  >  .PACUl >  ,  DPA, 

«yaws<ii),ps(ii),pbc,dps 

9  CONTINUE 


FIND  MAXIMUM  OUTPUT  OF  9-PROBE. 


?£*<  ASS<DPX^M®L?;C?^54l0l  OOTO  240 

X9  *  X9  -  DPX  /(2«COEF(3'  ♦  6*COEF(4i*XO  »  12*COEF(S)«XO»XO i 

GOTO  23S 

ASO  •  X0 

PSNAX  ■  FNP<4,C0EF ,AF0> 

IF  (IPRINT  . NE .  2MTE  'GOTO  24S 


Figure  J-2. 


Listing  of  Data  Reduction  Program  SABRED 
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j639 

640 
*64 

641 
'64l_ 
«44 
J645 

S» 

64? 

550 

8 

654 

655 


WI'Li'-'tiri 


(  PBHAX  -  PS*  )  /  (PTQTAL  -  PSA 
( CPA4MX  -  CPBNAX  )  /  CPAMAX 


•  0.0 

■  0.0 


AM.  P  MMX 

_  _  )  MlItTE  <CS,39S>  ABO, PBHAX 

245  COAT I HOC 

Wi* 

pxtfL 

88  ill  U  ’ 

25.  «fL  :  iW  :  <<a8E»H:i|8  «S8m:i)i;  RKSHtt! 

ihW' INT. ' HfcffTF <  *  l^SvkfxVCL  >  ..  3.5 

VTlO^JYHH*  (L0.42I)  PSTAT 
MITE  (LI., 425) 


O.  ^  MUIC  .L1...JI 

655  IF  (LO  .NE.  •  >  MITE  (L0.42S) 

656  DO  260  II  •  1.9.1 

sS7  CPA  •  <Aa(I1>  -  PSTAT)  / 


iS' 

m 

640 

661 

>642 

663 

664 
<665 
666 
667 
068 

669 

670 

£fi 

674 

S* 

677 

679 

*77 

*80 

601 

683 

683 

684 
60S 
636 
687 
689 
S89 

sh 

& 

694 

695 
096 
*.97 
*.98 
.49 
’00 

'03 

704 

'85 

'•6 

07 

708 

-09 

'10 

M3 

*>14 

'15 

*16 

'17 

'It* 

721 

V7!! 

7§5 

?l* 

728 


(PAHAX  -  PSTAT) 

YAH  •  TA1M(I1>-  ABO 

?F,<LOaii?3|>)JkMl!TE'<LO>430)  H.YAH.CPA 
260  CONTINUE 


26S  CONTINUE  .  fHI 


Phi 

BETA2 


.  _  «  180  /  3. 14159 

ATAN  <  (XU  -  XVEL  *  5IN(ABI  *  3.14154  /  180)  • 

COS ( PHI  «  3.14159  /  100>)  / 

<  XVELBCOS ( ABO 93 . 14159/ 180  > BCOS ( PMIB3 . 1 4159/ 180  >  > ) » 
180  /  3.14159 


PRINT  FLOW  VECTOR  QUANTITIES  FOR  INDIVIDUAL  POSITIONS. 


MITE"  (LI  1 435)  *  1 1  BETA  ICANNAi  XVEL  j  PHI  '.ABO  1 BfeTA2 . 

IF  (LO  .NE.  0)  MITE  (L0.435)  I  .BETA, GANNA, XVEL, PHI . ABO  ,BETA2 


270 


RDATAd.I)  -  XVEL 
RDATA12  I)  •  PHI 
RMTA(3d>  -  ABO 
CONTINUE 


STORE  REDUCED  DATA  IN  A  DATA  FILE. 


IL . i"iS36 . 

i?l?l<3Ll"440)1NOLF 

CALL  CrIAt4' IOC! ! ll*R?IFILE£ISIZE , ITYPE , ISECU, ICR , IDCDS) 

IF  U«R  .LT.  0  >  URITEC1 . till >  JJ.IEBR 
CALL  OPEN  (IDCD.ICRR.lFliE.IOPTN.iSECU.ICR.IDCBS) 

JJ  -  17 

!  . . 


u 


01 


F  (1ERR  LT.  0  )  MITEil  ,1111)  JJ.IERR 
ALL  HR  I TF  (IDCB.IERR.RMTA.iL) 

_  LT.  0  )  WflITEd,ltll>  JJ.IERR 

CALL  CLOSE  (IDCD.IERR.Q) 

IF  (IERR  .LT.  0  >  MITEd.llll)  JJ.IERR 

MITE  (LI.44S)  IFILE.ICR 

It0PL?777^-  #  *  “RIT*  U‘°-44S)  IFILE.ICR 

End 

real  FUNCTION  FNP<NORDER,COEFF,ZX) 

REAL  COEFF ( 7 ) 

A1  •  COEFF  (NORDERd) _ 

IF  <  NOR PER  .E8.  0  )  GOTO  02 

DO  01  II  -  1, HORDES, 1 

l  •  NORDER  ♦  i  -  II 

A1  ■  COEFFdl+ZXOAl 

FNP  »  At 

RETURN 

END 

R|AL  F^TION^NDINORDER  .COEFF  ,ZX) 

real  COEFFDd) 

DU  01  1*1 .NORDER . 1 

^'VhlxhimiliY'1 


Si 


NORDR"  NORDER  -  1 
IF (  NOR DR  ,EQ,  0. ) 

K'UiDS  1'r.i1 

At  «  COEFFD(t)«ZX*At 

FND  *41 

RETMN 

END 


GOTO  03 


Figure  J-2.  Listing  of  Data  Reduction  Program  &ABRED. 
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APPENDIX  K 


PLOTT  PROGRAMS  FOR  REDUCED  DATA 

The  plot  programs  SPLOTX,  &PLOTY  and  &PLOTP  can  be  used 
to  produce  plots  of  the  results  obtained  from  the  A  and  B 
probe.  They  are  all  almost  identical  except  for  which  quanti¬ 
ties  of  the  flow  vector  they  plot  and  the  corresponding  limits 
of  the  plots.  Only  one  program  description  and  one  flow  chart 
are  given  and  the  differences  between  the  three  programs  are 
pointed  out  where  they  appear. 

First,  the  program  asks  the  user  to  key  in  the  name  of  the 
data  file  containing  the  reduced  data  along  with  its  cartridge 
reference  number.  This  file  is  then  read  into  an  array 
DATA (3,256) .  The  user  has  to  decide  whether  he  would  like  a 
plot  on  the  X-Y  plotter  or  just  on  the  screen.  Plots  on  the 
screen  are  much  faster  than  those  from  the  X-Y  plotter  and  it 
is  often  only  necessary  to  get  a  fast  idea  of  the  general 
value  of  the  reduced  data.  However,  X-Y  plots  are  rather  use¬ 
ful  for  documentation  purposes.  Once  this  decision  is  made 
either  way,  the  use  of  the  plot  has  to  be  specified.  This 
must  be  done  at  any  time  the  program  is  used.  The  physical 
dimensions  of  the  plot  have  to  be  matched  to  the  particular 
needs  of  the  user. 

Plot  sizes  have  to  be  given  in  inches  times  ten.  One 
inch  is  set  equal  to  25  millimeters  (instead  of  25.4  mm)  by 
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the  HP  plotter  software.  The  values  of  XMIN  and  YMIN  (lower 
left  corner  of  plot)  should  not  be  smaller  than  5.0  (0.5  inches 
or  12.5  mm),  in  order  to  leave  sufficient  space  for  the  line 
titles.  It  is  advisable  to  scale  the  lengths  of  the  axes  in 
a  way  that  even  measures  in  inches  correspond  to  even  numbers 
of  the  quantities  plotted.  For  example,  10  degrees  in  yaw 
angle  equivalent  to  1  inch.  Following  are  the  limits  of  the 
quantities  to  be  plotted: 

For  all  programs:  0  -  circumferential  position  S  256 
Program  PCOTX:  0.12  £  X  (Mach  number  equivalent)  ^  Q.2Q 

Program  PCOTP:  -4°  £  pitch  angle  i  16° 

Program  PCOTY:  10°  £  yaw  angle  i  50° 

Before  the  programs  are  used,  the  operator  should  check  to 
see  if  his  data  falls  within  these  limits.  If  it  exceeds  any 
limits,  adjustments  have  to  be  made  in  the  corresponding  pro¬ 
gram  line  #67. 

In  order  to  compare  different  sets  of  data  it  is  often 
helpful  to  plot  the  data  from  two  or  more  files  on  one  plot. 

To  avoid  having  the  same  grid  plotted  any  time  one  set  of  data 
is  plotted,  the  user  has  to  specify  whether  he  wants  to  have 
a  full  grid  (frame)  plotted  or  not.  He  is  also  given  a  choice 
of  7  different  line  styles  in  order  to  distinguish  similar 
but  different  data.  For  details  of  the  line  styles  and  plot 
software  details  see  Ref.  11. 

Once  all  this  input  is  given  the  desired  program  will 
produce  a  plot  as  specified.  In  case  of  the  X-Y  plotter  the 
number  one  pen  is  selected  automatically  by  the  program. 
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Thus  the  user  should  make  sure  that  a  good  pen  of  the  right 
color  is  inserted  in  that  slot.  When  the  complete  graph  is 
drawn,  the  program  will  stop. 

Figure  K-l  gives  a  flow  chart  of  the  program  while  Fig. 

K-2  is  a  program  listing. 

Esternals:  CLOSE,  DRAW,  FXD ,  MOVE,  OPEN,  PLOTR,  READF ,  SETAR, 

VIEWP ,  WINDW 


Variable 

Type 

Description 

DATA (3, 256) 

Real 

Reduced  data  array 

IBUM 

Integer 

Dummy  variable 

ICR 

Integer 

Cartridge  reference  number 

ID 

Integer 

IDCB (144) 

Integer 

Data  control  block 

IDCBS 

Integer 

Control  block  length  (of  IDCB) 

IDUM 

integer 

Dummy  variable 

IFILE (3) 

Integer 

Array  containing  file  name 

IGCB (192) 

Integer 

Graphic  data  control  block 

IL 

Integer 

Total  number  of  words  to  be  stored 
in  raw  data  file  (two  words  for  one 
data  value) 

ILINE 

Integer 

Line  style  determinator 

ISECU 

Integer 

Security  code 

ISIZE (2) 

Integer 

Array  to  specify  file  dimensions  (1st 
word  for  number  of  records,  2nd  for 
record  length) 

ITYPE 

Integer 

Type  of  data  file 

LU 

Integer 

Output  device  number  (screen/plotter) 

X(256) 

Real 

Data  array  for  X  values 
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Variable 


XMAX 

XMIN 

Y (256) 
YMAX 

YMIN 


Type  Description 

Real  Maximum  value  o£  physical  plot  size 
(right  side) 

Real  Minimum  value  of  physical  plot  size 
(left  side) 

Real  Data  array  for  Y  values 

Real  Maximum  value  of  physical  plot  size 
(upper  limit) 

Real  Minimum  value  of  physical  plot  size 
(lower  limit) 
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Figure  K-l.  Flow  Chart  of  plot  programs  &PLOTX ,  &PLOTY  or  &PLOTP 
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PROCRAH  PLOTX  (3,99) 

THIS  IS  PROGRAM  PLOTX(»el> 

IT  FLOTTS  X  (HACHNUHBER)  DISTR IBUTIONS  AS  ESTABLISHES  WITH 
PROCRAH  ABRED . 

X  IS  EQUIVALENT  TO  HACHNUHBER  AND  GIVEN  AS  A  FUNCTION  OF 
CIRCUHFERRENTIAt  POSITION. 

ACTUAL  FLOTTSIZE  IS  USER  INPUT. 
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mi 


Real 
INTEGER 
DATA 

data 

DATA 
DATA 
DATA 
SATA 
FOR  HAT 


FORNAT  (‘Enter  the 


DATA(4.2SB> .XI2SB) ,Y(2S*> 
IDCB( 1*4),I^ILE<3) ,ISIZE(2) 

Hecu  ;  i4.r/ 

| TYPE  /  1/ 

/  2140/ 

/  14/ 

/  128/ 

nnnt  if  th«  data  fi 

Cff 


Amu 

"Enter  the 


FUR HAT ( ■  If  fee  wont  the  pl»tt  tn  th«  pletter,  key  PL,  anyth, neele 
ae  fer  tha  termnal  ••» 

FORHAT  (-Enter  Xpletnin  i“) 

FORHAT  < ‘Enter  Xpletnqi  i*) 

FORHAT  < ‘Enter  Tpletnin  (“> 

FORHAT  (‘Enter  Ypletnat  !*> 

PQRHAM-  Oe  yee  need  a  cenplete  new  franeT*/*  Answer  YES  er  NO<*> 
Enter  line  style  <0  -  6)  >*) 


*13*  ERROR  0 


■14*  DETECTED- > 


FORMAT  (  _ 

FORHAT  (<3A2> 

Es^oMfggsr 

UNITE  (LI, 100) 

READ  (LI, 149)  IF ILE 
WRITE  <LI,101> 

READ  (tt,  *>  ICR 

CALL  OPEN  ( IDCB , IEPR , IF1LE ,!OPTH, ISECU, ICR,IDCBS> 

If  (IERR  .LT .  0  >  URITE  (LI.llll)  JJ.IERR 
CALL  REAOF  ( IDCB,  IERR,  DATA,  fL , LEN, 1 > 

",F  ^IERR  -LT.  0  )  URITE  (Ll,llli>  JJ,IERR 

CALL  CLOSE  ( IDCB, IERR ,0) 

F  (IERR  LT  0  f  URITE  (LI, till)  JJ.IERR 


t 


Is 


URITE  (LI, .02) 

READ  ( LI , l 49 )  IBUH 


IF  ( IBUH 
IF  (ID 

ur  i  re 

READ 
URITE 
READ 
WRITE 
RE  AD 


0.  2HPL  )  ID  ■  2 


W  •  v 

-Q.  2 

<L 1,103) 

(LI,  »)  XHIN 

(LI ,)04) 

“  XHAX 


)  LU  *  13 


104) 

(li;  *) 

(LI,10S> 

(LI,  *)  YHIN 
URITE  -LI ,106) 

READ  <LI,  «>  YHAX 
CALL  PUIT#  ( IGCB, ID, 1 ,LU) 

Call  setar  (IGcb,i  .i> 


CALL  VIE  UP  (IGCB, XHIN.XMAX, THIN, THAX) 

CALL  UlNDU  ( IGC8  0. 0,25*. 0  0. 18, 0 .24) 

URITE  (LI, 107) 

READ  (LI, 149)  IDUH 
URITE  (11,108) 

READ  (LI,  «)  ILINE 
CALL  LINE  (IGCB, ILINE) 

IF  (  IDUH  .HE.  2HYE  )  GOTO  OS 
CALL  FXD  (IGCB, 2) 

CALL  PEN  <foe6  1) 

OS  COnVinuI1®  01, 0.0,0. 12,4.0,2.0,1..) 

CALL  HOVE  ( IGCB ,0 . 0 , DATA( 1,1)) 

19  “  1 :  HSM 

10  CALL  DRAU  (ICCB,XJ,DATAU,D) 

ur 7777 


Figure  K-2.  Listing  of  Reduced  Data  Plott  Program  &PLOTX. 
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